Задача А Четные

Дается последовательность из N чисел. Выведите сумму четных чисел среди них.

Question

Марлеша

10 августа, 09:23

+4

Ответы (1)

Знаете ответ?

Агапа · Answer 1

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.

Задача А ЧетныеДается последовательность из N чисел. Выведите сумму четных чисел среди них.