Цикл в фрагменте программы
p:=1;
repeat
p:=p*0.1
until p>0.1;
Сколько раз будет исполнен
0
3
2
1
Бесконечно ​

adidas2963    3   27.04.2020 13:33    4