1) Обе команды организуют цикл для выполнения серии повторяемых команд (эта серия наз. тело цикла).
Оба цикла сначала проверяют условие (в пока оно задано явно, в повторить N раз проверяется, не достигнуто ли N). Если оно истинно, выполняется тело цикла, а если нет, то переход на оператор, следующий за телом цикла.
2) Повторить N раз – количество повторений цикла известно в момент написания программы. При каждом повторении исполняется одно и та же серия команд, номер повторения при исполнении цикла неизвестен. Цикл выполнится ровно N раз.
Для команды пока число повторений заранее не известно и определяется в ходе выполнения этой команды. Величины, для которых проверяется условие повторения, могут изменяться в теле цикла и влиять на исполняемые команды. Возможен случай, что тело цикла не выполнится ни разу.
3) С команды пока можно реализовать любой цикл, то есть она в любом случае может заменить команду Повторить N раз. Обратное утверждение неверно - в некоторых случаях команда Повторить N раз не может заменить команду пока
1) Обе команды организуют цикл для выполнения серии повторяемых команд (эта серия наз. тело цикла).
Оба цикла сначала проверяют условие (в пока оно задано явно, в повторить N раз проверяется, не достигнуто ли N). Если оно истинно, выполняется тело цикла, а если нет, то переход на оператор, следующий за телом цикла.
2) Повторить N раз – количество повторений цикла известно в момент написания программы. При каждом повторении исполняется одно и та же серия команд, номер повторения при исполнении цикла неизвестен. Цикл выполнится ровно N раз.
Для команды пока число повторений заранее не известно и определяется в ходе выполнения этой команды. Величины, для которых проверяется условие повторения, могут изменяться в теле цикла и влиять на исполняемые команды. Возможен случай, что тело цикла не выполнится ни разу.
3) С команды пока можно реализовать любой цикл, то есть она в любом случае может заменить команду Повторить N раз. Обратное утверждение неверно - в некоторых случаях команда Повторить N раз не может заменить команду пока
{находит сумму введенных чисел, конец последовательности - 0}
var n, x: integer;
begin
n:=0;
repeat
readln(x);
inc(n,x);
until x=0;
writeln ('сумма равна ', n);
end.