Напишите ** языке Паскаль наиболее короткие алгоритмы вычисления у=х^20

Question

Напишите на языке Паскаль наиболее короткие алгоритмы вычисления у=х^20

Answer 1

Program Stepen;var  x: byte;  y: Real;begin  WriteLn('Введите число x');  Readln(x);  y := exp(ln(x) * 20);  Writeln('Ответ = ', y:4:2);  ReadLn;end.

Comments

program Stepen;
var
x: byte;
y: Real;
begin
WriteLn('Введите число x');
Readln(x);
y := exp(ln(x) * 20);
Writeln('Ответ = ', y:4:2);
ReadLn;
end.