Номер 7, страница 193 - гдз по информатике 8 класс учебник Босова, Босова

Вопросы и задания. Параграф 4.5. Программирование циклических алгоритмов. Глава 4. Начала программирования на языке Паскаль - номер 7, страница 193.

Условие.

7. Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчёт суммы всех введённых чисел. Используйте оператор rереаt.

Решение.

Repeat в Паскале используется для организации повторений (итераций) с заранее неизвестным их числом. Цикл повторяется до тех пор, пока не станет истинным некоторое условие. repeat оператор 1; оператор 2; ...; операторN until условие {до тех пор, пока условие не станет истинным} repeat оператор1; оператор2; ...; операторN until условие {до тех пор, пока условие не станет истинным}.

var
c, s, k: integer;
begin
s:=0;
k:=0;
repeat
writeln ('Введите число');
readln (c);
s:=s+c;
k:=k+1;
until c=0;
writeln ('Сумма=', s);
end.