Question

Определите значение переменной Р после выполнения следующего фрагмента программы: P:=1; i:=3; while i <= 9 do begin P := P * (i div 3); i := i + 1; end;

Answer 1

1 шаг цикла:
P=1
i = 4
2 шаг цикла
P=1
i = 5
3 шаг цикла
P = 1
i = 6
4 шаг цикла
P = 1*2 = 2
i = 7
5 шаг цикла
P = 2*2 = 4
i = 8
6 шаг цикла
P = 4*2 = 8
i = 9
7 шаг цикла
P = 8*3 = 24
i = 10

Ответ: P=24