Главная
Тема: исчо задачка
 |  LockeD [Off] [#] (03.02.2012 / 21:07) ████████████ - сотри и прочитай мой статус |
короче такая хрень:
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 >завтра попытаюсь осилить, кст n - longint
0 / 202