Переведите программу из паскаля в питон : const
nmax=20;
var
a: array[1..nmax,1..nmax] of byte;
n,i,j,c,k: byte;
begin
repeat
write('Введите размер матрицы n: ');
readln(n);
until n<=20;

i:=1; j:=1; c:=0; k:=1;
repeat
//вправо
while (k<=n*n)and(j<=n-c) do
begin
a[i,j]:=k;
inc(j);
inc(k);
end;
//вниз
inc(i); dec(j);
while (k<=n*n)and(i<=n-c) do
begin
a[i,j]:=k;
inc(i);
inc(k);
end;
//влево
dec(j); dec(i);
while (k<=n*n)and(j>=1+c) do
begin
a[i,j]:=k;
dec(j);
inc(k);
end;
//вверх
inc(c); inc(j); dec(i);
while (k<=n*n)and(i>=1+c) do
begin
a[i,j]:=k;
dec(i);
inc(k);
end;
inc(j); inc(i);
until k>n*n;

writeln('Матрица по спирали:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.​

nmedvedeva20018    2   26.04.2021 08:05    0