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

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

Question

Лукаха

19 октября, 05:45

+5

Ответы (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 чисел. Выведите сумму четных чисел среди них.