Диагонали - Turbo Pascal

Формулировка задачи:

Что значат диагонали квадратной матрицы? i=j i<j i>j i+j=n+1 i+j<n+1 i+j>n+1

Решение задачи: «Диагонали»

textual
                            Листинг программы 
                        

                            const n=7;
var i,j:byte;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
  if (i=j)or(i+j=n+1) then write(1:2) else write(0:2);
  writeln
 end
end.
                        

Оцени полезность:

12 голосов , оценка 3.833 из 5

Похожие ответы