7. Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчёт суммы всех введённых чисел. Используйте оператор repeat.
Ответ
Программа на языке программирования, который использует оператор repeat для ввода целых чисел и подсчета их суммы до ввода нуля:
program calculateSum;
var
num, sum: integer;
begin
sum := 0;
repeat
write(‘Введите число (0 для выхода): ‘);
readln(num);
sum := sum + num; until num = 0;
writeln(‘Сумма введенных чисел: ‘, sum);
end.
В данной программе объявляются две переменные: num для хранения вводимого числа и sum для суммирования чисел.
Внутри цикла repeat программа просит пользователя ввести число и считывает его с помощью функции readln. Затем число прибавляется к переменной sum. Цикл будет продолжаться до тех пор, пока вводимое число не будет равным нулю.
После выхода из цикла программа выводит сумму всех введенных чисел с помощью функции writeln.
Вы можете скопировать эту программу на свой компьютер, сохранить в файл с расширением .pas и запустить ее в среде программирования, чтобы увидеть результаты.