PromDust
Опубликовано 6 лет назад по предмету Информатика от PromDust


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

  1. Ответ
    Ответ дан elenaklon
    var a,s,s1:Integer;begin Write('Введите число, которое должна превысить сумма чисел (s): ');ReadLn(s);while s1<=s dobeginWrite('Введите число: ');ReadLn(a);s1:=s1+aend;WriteLn('Сумма введенных чисел: ',s1)end.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц