Информатика, опубликовано 2018-08-22 20:08:13 by Гость
Составьте программу, которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 10 до 26. ребят срочно нужно))
Ответ оставил Гость
Var i, sum:integer;
proz:longint;
begin
for i:=10 to 26 do
begin
if i mod 2 = 0 then sum:=sum+i else if i mod 2 0 then proz:=proz*i;
end;
writeln(summa=,sum);
writeln(proizvedenie=,proz);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на