Сколько раз будет выполнен цикл "ДО" в приведенном фрагменте программы? a:=1; repeat a:=a*2; until a>=16
5 раз будет выполнен
Ответ: 4 раза. a = 1 повторять a = a * 2 прекращать когда a >= 16 a = 1 * 2 = 2 ( 2 >= 16 - нет, продолжаем) a = 2 * 2 = 4 (4 >= 16 - нет, продолжаем) a = 4 * 2 = 8 (8 >= 16 - нет, продолжаем) a = 8 * 2 = 16 (16 >= 16 - да, прекращаем)