Дана непустая последовательность положительный целых чисел, за которой следует 0. Найти сумму всех четных чисел этой последовательности

Записать, как программу в паскале

Question

Аксён

23 февраля, 12:22

+2

Ответы (1)

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

Алексина · Answer 1

Var

x, sum:integer;

begin

repeat

readln (x);

if x mod 2 = 0 then

sum:=sum+x;

until x=0;

writeln (sum);

end.