22.01.2009, 18:52
общий
это ответ
Здравствуйте, Абельхарисов Руслан/Marked One!
Программа очень простая. Комментарии не требуются.
Приложение:
program Pascal_158437;
uses Math;
var
N,i:Word;
s:double;
begin
Write('N=');
ReadLn(N);
i:=1;
s:=0;
while i<N do begin
Inc(i);
s:=s+ln(i)/ln(10);
end;
WriteLn(N,'! contains ',Trunc(s+1),' digits');
ReadLn;
end.