Последовательно вводится n-целых чисел. Найти сумму чётных чисел

Question

Информатика

Флорентий

13 мая, 19:36

Последовательно вводится n-целых чисел. Найти сумму чётных чисел

+4

Ответы (1)

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

Юрия · Answer 1

Var x, n, i, s:integer;

begin

write ('Сколько будет чисел: ') ;

readln (n) ;

writeln ('Вводите числа по одному:') ;

for i:=1 to n do

begin

readln (x) ;

if x mod 2=0 then s:=s+x;

end;

writeln ('S=', s) ;

end.