Дана непустая последовательность положительный - вопрос №3031802 от salamov1213 24.08.2021 09:51

Question

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

salamov1213 · Answer

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