Дано Х и N. Составить программу для Х в степени N на Паскале.

var x, n, res, i: integer; begin res:=1; readln(x); readln(n); for i:= 1 to n do res:=res*x; writeln(x, '^', n, ' = ', res); end.

О типах x и n неизвестно ничего, но по сложившейся традиции резонно предположить, что n - целое, x - вещественное. Представленная программа написана именно в таком понимании типов переменных. var   i,n:integer;   x,p:double; begin   Write('Введите основание (x) и показатель степени (n): ');   Read(x,n);   if x=0 then p:=0   else begin     p:=1;     for i:=1 to Abs(n) do p:=p*x;     if n<0 then p:=1/p   end;   Writeln(x,'^',n,'=',p) end. Тестовые решения: Введите основание (x) и показатель степени (n): 2 30 2^30=1073741824 Введите основание (x) и показатель степени (n): -3.35 9 -3.35^9=-53137.7624927636 Введите основание (x) и показатель степени (n): 18.3 -4 18.3^-4=8.9165251950717E-06