Дана непустая последовательность положительный - вопрос №03032027 от yopof195Pro 06.03.2023 11:30

Question

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

yopof195Pro · Answer

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