Автор: Bronislav

Bronislav — Sat, 10 Feb 2018 21:47:28 +0000

может кому пригодится «шахматная доска»

const n=8;
var m:array[1..n,1..n]of integer;

begin
  for var i:=n downto 1 do
  begin
    for var j:=1 to n do
    begin
      m[i,j]:=j+10*i;
      write(m[i,j],' ');
    end;
    writeln;
  end;
end.

const n=8;

var m:array[1..n,1..n]of integer;

begin

for var i:=n downto 1 do

begin

for var j:=1 to n do

begin

m[i,j]:=j+10*i;

write(m[i,j],' ');

end;

writeln;

end;

end.

Комментарии: Решаем задачи Абрамян на Паскале. Boolean35

Автор: Bronislav