Жили были монитор, клавиатура,системный блок и мышь.Они все жили в разных районах,но случилось так,что они все переехали и стали жить рядом с друг другом.Далее они пошли в одну школу,но почему-то не общались.Их всех избрали в школьный парламент.В рамках этого парламента им нужно было сделать один совместный проект.Сначала они не поладили,системный блок задирал остальных, особенно мышь, которую он прозвал серой мышкою.Все остальные обиделись на системный блок,и стали работать над проектом втроём.Системный блок признал свою ошибку,и попросил у всех прощения.Когда над проектом работали только трое, ни-че-го не получалось.Но все вместе они создали уникальный проект и получили за него пятерку.Ребята усвоили,что порознь-они ничего не добьются,но вместе-они свернут горы)
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.
Как сделать более кратко не знаю. Но эта программа работает.
Жили были монитор, клавиатура,системный блок и мышь.Они все жили в разных районах,но случилось так,что они все переехали и стали жить рядом с друг другом.Далее они пошли в одну школу,но почему-то не общались.Их всех избрали в школьный парламент.В рамках этого парламента им нужно было сделать один совместный проект.Сначала они не поладили,системный блок задирал остальных, особенно мышь, которую он прозвал серой мышкою.Все остальные обиделись на системный блок,и стали работать над проектом втроём.Системный блок признал свою ошибку,и попросил у всех прощения.Когда над проектом работали только трое, ни-че-го не получалось.Но все вместе они создали уникальный проект и получили за него пятерку.Ребята усвоили,что порознь-они ничего не добьются,но вместе-они свернут горы)
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.
Как сделать более кратко не знаю. Но эта программа работает.