Question

Написать 2 спосабами программирования выселения степени числа x(икс)

Answer 1

uses crt;  

var x,a,b,x5,x13:real;  

begin  

write('x=');  

readln(x);  

a:=x*x; //1  

b:=a*x; //2  

x5:=a*b;//3  

x13:=x5*x5*b;//5  

write('x^5=',x5:0:2,' x^13=',x13:0:2);  

end.