Лёгкая задача по информатике паскаль. По заданному числу x и целому n вычислить x^n...

Question

Лёгкая задача по информатике паскаль.
По заданному числу x и целому n вычислить x^n используя цикл repeat...until.

Answer 1

Var x,xn:real; n,i:integer;
begin
readln(x,n);
xn:=1; i:=0;
repeat
i:=i+1;
xn:=xn*x;
until i=abs(n);
if n<0 then xn:=1/xn;<br>writeln(x:3:1,'^',n,' = ',xn:6:4);
end.

Пример:
2 -3
2.0^-3 = 0.1250