Question

Turbo Pascal!
Вычислить р , если p:=2;
while p<10 do begin p:=2*p+1;p:=p+1
end;

Answer 1

1. 2<10 ⇒ p=2*2+1=5, p=5+1=6
2. 6<10 ⇒ p=2*6+1=13, p=13+1=14
3. 14<10
Ответ: p=14