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

Question

Информатика

Феоктиста

29 января, 18:00

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

+2

Ответы (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.