Организовать суммирование введённых с клавиатуры чисел до тех пор, пока значение суммы не превысит S. Вывести полученную сумму на экран.

Question

Информатика

Лешек

25 февраля, 20:34

Организовать суммирование введённых с клавиатуры чисел до тех пор, пока значение суммы не превысит S. Вывести полученную сумму на экран.

+5

Ответы (1)

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

Амриндер · Answer 1

Var a, s, s1:Integer;

begin

Write ('Введите число, которое должна превысить сумма чисел (s) : ') ;

ReadLn (s) ;

while s1<=s do

begin

Write ('Введите число: ') ;

ReadLn (a) ;

s1:=s1+a

end;

WriteLn ('Сумма введенных чисел: ', s1)

end.