Вводить числа с клавиатуры до тех пор, пока сумма четных из них не совпадёт с суммой нечетных

Question

Информатика

Максимка

18 мая, 22:54

Вводить числа с клавиатуры до тех пор, пока сумма четных из них не совпадёт с суммой нечетных

+5

Ответы (1)

Знаете ответ на вопрос?

Полюня · Answer 1

Var

A:integer;

Sc, Sn:real;

Begin

Sc:=0;

Sn:=0;

Repeat

Read (A) ;

if A mod 2 = 0 then Sc:=Sc+A

else Sn:=Sn+A;

Until Sc=Sn;

WriteLn ('S = ', Sc)

End.