Задача, Не знаю как коротко написать Опции

[Shale]

Как написать программу, которая печатает столбик строк такого типа:
100000000
020000000
003000000
000400000
000050000
000006000
000000700
000000080
000000009

[S_lip]

Вот.

var
  s:string[9];
  i:byte;
begin
  s:='100000000';
  writeln(s);
  for i:= 2 to length(s) do begin
    s[i-1]:='0';
    s[i]:=char(i+48); // #48 = '0'
    writeln(s);
  end;
end.

Сообщение отредактировано: S_lip - 15.08.2008 18:43

[klem4]

for i := 0 to 80 do begin
    if i mod 9 = 0 then writeln;
    if (i mod 10 = 0) then
      write((i div 10 + 1):2)
    else write(0:2);
  end;

[renesko1]

for i := 0 to 80 do begin
    if i mod 9 = 0 then writeln;
    if (i mod 10 = 0) then
      write((i div 10 + 1):2)
    else write(0:2);
  end;

Крутой код ...)

Сообщение отредактировано: renesko1 - 17.08.2008 13:14

[Айра]

Угу))) А я тоже хочу
Вот примитивный вариант:

var i,j:integer;
begin
  for i:=1 to 9 do
    begin
      for j:=1 to 9 do
        if i=j then write('',i)
        else write('0');
      writeln;
    end;
end.

[shale]

Спасибо всем большое.