Дана непустая последовательность положительный целых - вопрос №3031802 от kaldyn007 17.02.2021 08:52

Question

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

kaldyn007 · Answer

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