Как написать программу, которая печатает столбик строк такого типа:
100000000
020000000
003000000
000400000
000050000
000006000
000000700
000000080
000000009
Вот.
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.
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;
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;
Угу))) А я тоже хочу
Вот примитивный вариант:
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.
Спасибо всем большое.