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

Question

Венцеслав

25 декабря, 14:10

+1

Ответы (1)

Знаете ответ?

Боруля · Answer 1

Var a, s : Integer;

Begin

s:=0;

While s1000 do

Begin

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

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

end;

end.