ramzes [Off] [#] (03.02.2012 / 21:09) Крайне позитивный раздолбай

Monk (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 >php великолепный язык на нем я это в три строчки сделаю