Подсчитать количество цифр в факториале

@Чирикан · Регистрация: 27.09.2015

Студворк — интернет-сервис помощи студентам

Помогите написать программу которая считает количество цифр в факториале

@vovachuk · 02.10.2015, 01:17

Pascal
1
2
3
4
5
6
7
8
9
var n,i,o:integer;
begin
o:=1;
writeln('введите n');
readln(n);
for i:=1 to n do
o*=i;
writeln('ответ - ',o.ToString.Length);
end.

@Sergio Leone · 02.10.2015, 01:30

vovachuk, а это у тебя какой Паскаль?
когда ты n вводишь 100, какой ответ программа даёт?

@vovachuk · 02.10.2015, 09:15

pascalABC.net
всё нормально

@APALoff · 02.10.2015, 09:28

Сообщение от vovachuk

всё нормально

Да нет, не всё. Рекомендую посмотреть диапазон допустимых значений для типа integer и хотя бы примерно посчитать, например 15! - сравните результаты.

Добавлено через 2 минуты

Pascal
1
2
3
4
5
6
7
8
9
var n,i : integer;
    o   : biginteger;
begin
o:=1;
writeln('введите n');
readln(n);
for i:=1 to n do o:=o*i;
writeln('ответ - ',o.ToString.Length);
end.

Добавлено через 52 секунды
Только кажется мне, что задачу можно решить не высчитываю факториал... или в задаче есть ограничение на максимальное допустимое значение N.

@Puporev · 02.10.2015, 10:44

Обычно предлагают использовать формулу Стирлинга и логарифмы. Вот такой код

Pascal
1
2
3
4
5
6
7
8
9
var n,z:integer;
    a:real;
begin
write('n=');
readln(n);
a:=ln(sqrt(2*pi*n))+n*ln(n)-n;
z:=trunc(a/ln(10))+1;
write('z=',z);
end.

я проверял для чисел, где известно количество цифр в n!, считает правильно.
2012!=5776
10000!=35660
100000!=456574
500000!=2632342

Добавлено через 8 минут
2012! взял здесь
http://desyatbukv.blogspot.ru/2011/12/2012.html
А другие с одного сайта, где товарищи raindog_2 и thesz тренировались в длинной арифметике.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@Чирикан 1 / 1 / 1 Регистрация: 27.09.2015 Сообщений: 69

	Подсчитать количество цифр в факториале 01.10.2015, 19:41. Показов 4383. Ответов 5 Метки нет (Все метки) Помогите написать программу которая считает количество цифр в факториале Миниатюры 0

@Sergio Leone 2511 / 1132 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	02.10.2015, 01:30
	vovachuk, а это у тебя какой Паскаль? когда ты n вводишь 100, какой ответ программа даёт? 0

@vovachuk 13 / 13 / 18 Регистрация: 08.01.2015 Сообщений: 53
	02.10.2015, 09:15
	pascalABC.net всё нормально 0

Подсчитать количество цифр в факториале

Решение