Требуется заполнить массив A[1:6, 1:6] из целых чисел по правилу a(k, n) = k^n - n^k....

Question

Требуется заполнить массив A[1:6, 1:6] из целых чисел по правилу a(k, n) = k^n - n^k. Изобразите схему алгоритма, позволяющего заполнить массив нужным образом.

Answer 1

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.

Подробнее - на Znanija.com - znanija.com/task/31055284#readmore