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

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

Question

Дмитрий

25 июня, 15:03

+1

Ответы (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.