Question

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

Answer 1

Почему бы и нет?
p:=2
p:=2/10 = 0,2
0,2 < 0,1?
Нет. Тогда:
p:= 2/10
p:=2/10 *1/10 = 2/ 100= 0,02
0,02 < 0,1?
Да. Конец.