Question

как записать в pascal x^x^x?

Answer 1

Ответ:

uses Math;

var x, t: real;

begin

   readln(x);

   t := power(x, x);

   x := power(x, t);

   writeln(x);

end.

Объяснение:

Вводим числа и сохраняем в x. В переменную t сохраняем возведение в степень x ^ x. Дальше x возводим уже в степень t. И выводим на экран.

Answer 2

var

 x:integer;

 temp, res:real;  

begin

 read(x);

 temp:=exp(ln(x)*x);

 res:=exp(ln(x)*temp);

 write(res:0:3);

end.