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

Question

Информатика

Амбай

14 августа, 12:29

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

+1

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