Объяснение:
sqr(x) -- квадрат x.
sqrt(x) -- квадратный корень x.
power(x, y) -- x в степени y.
real.IsNaN(x) -- x не является числом (условие).
В задании нет конечного значения x, поэтому поставил условие на NaN, так как начиная с x=3.60, y перестаёт вычисляться (квадратный корень не извлекается).
Алгоритм можно написать по выше данному коду.
Пример работы:
"Ой! Картинка отличная, но произошла ошибка загрузки попробуйте еще раз."
<p>program xxx;</p><p> var i, k, d, e, s : integer;</p><p>begin</p><p> k:=0;</p><p> for i:= 10 to 99 do</p><p> begin</p><p> d:= i div 10;</p><p> e:= i mod 10;</p><p> s:=d + e;</p><p> if i mod s = 0 then k:=k+1</p><p> end;</p><p> write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p> readln</p><p>end.</p>