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

Question

Информатика

Феоктиста

25 сентября, 00:29

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

+1

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