Напишите более короткие алгоритмы вычисления выражений : y=x в 15 степени, y=x в 19...

Question

Напишите более короткие алгоритмы вычисления выражений : y=x в 15 степени, y=x в 19 степени
Постарайтесь использовать минимальное количество дополнительных переменных.
Каждое выражение может содержать только одну арифметическаую операцию.

Answer 1

var x,y1,y2:real;
begin
read(x);
y1:= exp(ln(x)*15);
y2:= exp(ln(x)*19);
writeln(y1);
writeln(y2);
end.