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

Question

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

Answer 1

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