Monk [Off] [#] (03.02.2012 / 21:03)

короче такая хрень:
program GW;
var i, k, l: integer;
n: int64;
begin
write('write N ');
readln(N);
i:=0;
l:=1;
while N div l > 0 do
begin
i:= i+1;
l:= l*10;
end;
k:=0;
l:=1;
while i >= 0 do
begin
k:= k+1;
if (k=9) or (k=99) or (k=999) then
l:= l+1;
i:= i-l;
end;
writeln('k = ', k);
end.
то что понял