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

0 голосов
103 просмотров

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


Информатика Начинающий (180 баллов)
оставил комментарий Одаренный (2.4k баллов)

Количество чисел в последовательности известно?

Дан 1 ответ
0 голосов
Одаренный (2.4k баллов)

Var
 x,sum:integer;
 
begin
 repeat
  readln(x);
  if x mod 2 = 0 then
   sum:=sum+x;
 until x=0;
 writeln(sum);
end.

...