Question

Сколько раз будет выполнен цикл? repeat read (N); Sum := Sum+N; until N=1

Answer 1

Цикл буде виконаний

Sum := Sum+N;

Answer 2

Цикл будет выполняться до тех пор, пока значение переменной N не станет равным 1. Каждая итерация цикла происходит после ввода значения N с клавиатуры. Таким образом, количество итераций будет зависеть от того, сколько раз вы введете значение N до того, как оно станет равным 1.

Если вы каждый раз вводите значение N больше 1 и затем уменьшаете его постепенно до 1, то количество итераций будет равно количеству раз, которое вы ввели значение N.