Вводить числа, пока сумма не превысит 1000 - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Написать программу, которая запрашивает с клавиатуры числа и производит их суммирование до тех пор, пока сумма чисел не превысит 1000.

Решение задачи: «Вводить числа, пока сумма не превысит 1000»

textual
Листинг программы
var s, n: Integer;
begin
  repeat
    Write('> '); Read(n);
    s:=s+n; WriteLn('... + ',n,' = ',s);
  until s>1000;
end.

Объяснение кода листинга программы

  1. Создается переменная s типа Integer и инициализируется значением 0.
  2. Создается переменная n типа Integer и инициализируется значением 0.
  3. Запускается цикл repeat, который будет выполняться до тех пор, пока значение переменной s не превысит 1000.
  4. Внутри цикла, с помощью функции Write, выводится приглашение для ввода числа.
  5. С помощью функции Read, считывается введенное число и сохраняется в переменной n.
  6. С помощью оператора s:=s+n, значение переменной s увеличивается на значение переменной n.
  7. С помощью функции WriteLn, выводится строка ... +,n,=,s`, где n - это значение переменной n, а s - это значение переменной s.
  8. Цикл повторяется, пока значение переменной s не превысит 1000.
  9. Когда это условие выполняется, цикл завершается.
  10. Программа заканчивается.

Оцени полезность:

13   голосов , оценка 4.231 из 5
Похожие ответы