Question

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

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 раза