Написать программу ввода с клавиатуры и суммирования любого количества целых значений. Условием выхода считать сумму значений равному числу 1000.

Question

Христя

3 февраля, 21:57

+2

Ответы (1)

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

Альберт · Answer 1

Var a, s : Integer;

Begin

s:=0;

While s1000 do

Begin

Readln (a) ; s:=s+a;

Writeln ('Текущая сумма: ', s) ;

end;

end.