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