Задача А ЧетныеДается последовательность из N чисел. Выведите сумму четных чисел среди них.
Задача А Четные
Дается последовательность из N чисел. Выведите сумму четных чисел среди них.
Гость
Ответ(ы) на вопрос:
Гостьvar
n,i,sum:Integer;
Begin
Read(n);
for i:=1 to n do
begin
if (i mod 2=0) then sum:=sum+i;
end;
Writeln(sum);
end.
Не нашли ответ?
Похожие вопросы