Консультация № 158437
22.01.2009, 14:19
0.00 руб.
0 2 1
Здравствуйте.
Как решить такую задачку?
Известно, что факториал числа 5 равен 120. Выходит, что число равное 5! содержит 3 цифры.
Составить программу, определяющую количество цифр в N!. N [$8712$] [1; 30000].

Обсуждение

Неизвестный
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.
Неизвестный
22.01.2009, 19:16
общий
uses Math; надо убрать
Форма ответа