Вопрос по информатике:
Вводить числа с клавиатуры до тех пор ,пока сумма четных из них не совпадёт с суммой нечетных
Пожаловаться
- 16.07.2015 18:58
- Информатика
- remove_red_eye 9668
- thumb_up 31
Ответы и объяснения 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.
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.
Пожаловаться
- 17.07.2015 08:23
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы