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

Да цикл будет исполнен.
Repeat  - цикл с постусловием и потому точно исполнится желая бы раз

Repeat - это цикл с пост условием то есть в первый раз всё равно выполнится. Теперь разберём цикл, он будет исполнять это деяние
(p:=p*0.1) пока (p) не станет меньше 0.1 , сейчас работаем в теле цикла, (p) вначале равен двум по этому получаем p:=2*0,1; получаем p:=0,2 проверяем условие 0,2lt;0,1  нет повторяем 2-ой раз цикл, сейчас p:=0,2 а не 2 как было в первый раз p:=0,2*0,1 p:=0,02 проверяем условие 0,02lt;0,1  да меньше цикл прерывается
и (p) остаётся равным 0,02