Помогите пожалуйста,мне надо с решением. Цикл в фрагменте программы p:=2; repeat p :...

Question

Помогите пожалуйста,мне надо с решением.
Цикл в фрагменте программы
p:=2;
repeat
p : =p*0.1
until p<0.1;<br> Будет исполнен?

Answer 1

P = 2
1 шаг цикла:
p = p*0.1 = 2*0.1 = 0.2
p < 0.1 ⇒ 0.2 < 0.1 ⇒ false
2 шаг цикла:
p = p*0.1 = 0.2*0.1 = 0.02
p < 0.1 ⇒ 0.02 < 0.1 ⇒ true

Ответ: тело цикла выполнится 2 раза