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

Question

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

Олегнорм · Answer

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

Популярные вопросы