Question

Цикл, степени, Паскаль.

Answer 1

Var i,j:integer;
begin
for i:=1 to 5 do
 begin
 for j:=1 to 5 do write(power(j,i):5);
 writeln('  x^',i);
 end;
end.

Результат:
    1    2    3    4    5  x^1
    1    4    9   16   25  x^2
    1    8   27   64  125  x^3
    1   16   81  256  625  x^4
    1   32  243 1024 3125  x^5