Объяснение:
sqr(x) -- квадрат x.
sqrt(x) -- квадратный корень x.
power(x, y) -- x в степени y.
real.IsNaN(x) -- x не является числом (условие).
В задании нет конечного значения x, поэтому поставил условие на NaN, так как начиная с x=3.60, y перестаёт вычисляться (квадратный корень не извлекается).
Алгоритм можно написать по выше данному коду.
Пример работы:
"Ой! Картинка отличная, но произошла ошибка загрузки попробуйте еще раз."
Объяснение:
sqr(x) -- квадрат x.
sqrt(x) -- квадратный корень x.
power(x, y) -- x в степени y.
real.IsNaN(x) -- x не является числом (условие).
В задании нет конечного значения x, поэтому поставил условие на NaN, так как начиная с x=3.60, y перестаёт вычисляться (квадратный корень не извлекается).
Алгоритм можно написать по выше данному коду.
Пример работы:
"Ой! Картинка отличная, но произошла ошибка загрузки попробуйте еще раз."
var
i : integer;
f : BigInteger;
begin
f := 1;
for i := 2 to n do
f := f * i;
factorial := f
end;
var
x:integer;
begin
write('X: ');
readln(x);
writeln(factorial(x));
end.