Сформировать квадратную матрицу порядка n по заданному образцу 1 2 3 4 5 6 7 8 9 10 0 1 2 3 4 5 6 7 8 9 0 0 1 2 3 4 5 6 7 8 0 0 0 1 2 3 4 5 6 7 0 0 0 0 1 2 3 4 5 6 0 0 0 0 0 1 2 3 4 5 0 0 0 0 0 0 1 2 3 4 0 0 0 0 0 0 0 1 2 3 0 0...

Сформировать квадратную матрицу порядка n по заданному образцу 1 2 3 4 5 6 7 8 9 10 0 1 2 3 4 5 6 7 8 9 0 0 1 2 3 4 5 6 7 8 0 0 0 1 2 3 4 5 6 7 0 0 0 0 1 2 3 4 5 6 0 0 0 0 0 1 2 3 4 5 0 0 0 0 0 0 1 2 3 4 0 0 0 0 0 0 0 1 2 3 0 0 0 0 0 0 0 0 1 2 0 0 0 0 0 0 0 0 0 1
Гость
Ответ(ы) на вопрос:
Гость
var  i: integer;  begin for i:=1 to 9 do  write(i);  writeln(10); for i:=0 to 8 do  write(i);  writeln(9); for i:=1 to 2 do  write('0');  for i:=1 to 7 do  write(i);  writeln('8'); for i:=1 to 3 do  write('0');  for i:=1 to 6 do  write(i);  writeln('7'); for i:=1 to 4 do  write('0');  for i:=1 to 5 do  write(i);  writeln('6'); for i:=1 to 5 do  write('0');  for i:=1 to 4 do  write(i);  writeln(5); for i:=1 to 6 do  write('0');  for i:=1 to 3 do   write(i);  writeln('4'); for i:=1 to 7 do  write('0');  for i:=1 to 2 do  write(i);  writeln(3); for i:=1 to 8 do  write('0');  write('1');writeln('2'); for i:=1 to 9 do  write('0');  writeln(1);   end. Как сделать более кратко не знаю. Но эта программа работает.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы