var a:array [1..6,1..6] of integer;
k,n,s,st:integer;
begin
for k:=1 to 6 do
for n:=1 to 6 do
st:=1;
for s:=1 to n do st:=st*k;
a[k,n]:=st;
write(a[k,n]:7);
end;
writeln
end
end.
Подробнее - на -
var a:array [1..6,1..6] of integer;
k,n,s,st:integer;
begin
for k:=1 to 6 do
begin
for n:=1 to 6 do
begin
st:=1;
for s:=1 to n do st:=st*k;
a[k,n]:=st;
write(a[k,n]:7);
end;
writeln
end
end.
Подробнее - на -