Дан фрагмент программы на языке Паскаль. p:=1; a:=1; while p<16 do begin a:=2*a; p:=p*a; end; Сколько раз выполнится тело цикла?

Разберем программу построчно: * `p := 1; a := 1;` - Инициализация переменных p и a значением 1. * `while p < 16 do` - Цикл выполняется, пока p меньше 16. * `begin ... end;` - Тело цикла. * `a := 2 * a;` - a умножается на 2. * `p := p * a;` - p умножается на текущее значение a. Проследим за значениями переменных на каждой итерации цикла: 1. Итерация 1: * `a := 2 * 1 = 2` * `p := 1 * 2 = 2` 2. Итерация 2: * `a := 2 * 2 = 4` * `p := 2 * 4 = 8` 3. Итерация 3: * `a := 2 * 4 = 8` * `p := 8 * 8 = 64` После третьей итерации p становится равным 64, что больше 16. Следовательно, цикл выполнится 3 раза. Ответ: 3