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

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

+2
Ответы (1)
  1. 14 августа, 14:18
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Организовать суммирование введённых с клавиатуры чисел до тех пор, пока значение суммы не превысит S. Вывести полученную сумму на экран. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы