Светофор является устным источником информации

Question

Информатика: Светофор является устным источником информации

solomiaoleksin · Accepted Answer

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.

Как сделать более кратко не знаю. Но эта программа работает.

MOGZ ответил