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.
Как сделать более кратко не знаю. Но эта программа работает.
var i, j, n: integer; a: array[1..nn, 1..nn] of integer;
begin writeln('Задайте размер матрицы n'); readln(n); if n > nn then writeln('Вы превысили допустимый размер матрицы 20') else begin writeln('Матрица-результат'); for i := 1 to n do begin writeln; for j := 1 to n do begin if i < j then a[i, j] := 1 else if i = j then a[i, j] := 2 else a[i, j] := 3; write(a[i, j]:2) end; end; writeln end end.
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.
Как сделать более кратко не знаю. Но эта программа работает.