Сколько раз выполнится тело оператора цикла?
C := 1 ;
I := 1 ;
While I <= 5 do begin
C := C * I ;
I := I + 1 ; ​​​​​​​
end ;

Тело оператора цикла выполнится 3 раза

Обьяснение:

Цикл While выполняется пока I меньше или равно 5, после этого C умножается на I. На первом этапе делается 1 * 1 = 1, 1 не меньше 5. К I прибавляется 1, теперь выполняется 1 * 2 = 2, 2 не меньше 5. Прибаляется + 1 = 3. Теперь делается 2 * 3 = 6, 6 не меньше 5 и не равно, так что цикл While (пока I не меньше 5 или не равно 5) заканчивается.