uses crt;
const
n = 6;
type
TMx = array[1..n, 1..n] of integer;
procedure Print(mx : TMx);
var
i,j : byte;
begin
writeln; writeln;
for i := 1 to n do begin
writeln;
for j := 1 to n do write(mx[i,j]:2,' ');
end;
end;
procedure SpiralFill(var mx : TMx);
var
i,j,c, count : byte;
begin
i := 1;
j := 1;
c := 0;
count := 1;
repeat
while (j <= n - c) do begin mx[i,j] := count; inc(count); inc(j); end;
inc(i); dec(j);
while (i <= n - c) do begin mx[i,j] := count; inc(count); inc(i); end;
dec(j); dec(i);
while (j >= 1 + c) do begin mx[i,j] := count; inc(count); dec(j); end;
inc( c ); inc(j); dec(i);
while (i >= 1 + c) do begin mx[i,j] := count; inc(count); dec(i); end;
inc(j); inc(i);
until c > n div 2;
end;
var
m : TMx;
begin
clrscr;
SpiralFill(m);
Print(m);
readln;
end.
на втором курсе помню хотел удалить важные процессы через мскофиг на половине компов, уж очень напрягала эта йухня с решением подобных е64нутых заданий. так что - сиди и учи информатику двоечник, будь умнее меня хотя бы в этом плане
