Найти и вывести на экран все N и N!, для которых значение N! не превосходит заданное с клавиатуры число Z

@TheCoolday · Регистрация: 25.09.2016

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

Найти и вывести на экран все N и N!, для которых значение N! не превосходит заданное с клавиатуры число Z.
(Обязательно должно присутствовать цикл while).
Спасибо за внимание/помощь.

@Puporev · 26.09.2016, 11:51

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var n,z,f:integer;
begin
repeat
write('Введите число Z от 1 до ',maxint,' z=');
readln(z);
until(z>0)and(z<=maxint);
f:=1;
n:=1;
while f<=z do
 begin
  writeln('n=',n,' n!=',f);
  n:=n+1;
  f:=f*n;
 end;
end.

@TheCoolday · 26.09.2016, 19:28 **[ТС]**

Puporev, спасли жизнь студента и студентов которые будут гуглить данную задачу.

@Cyborg Drone · 27.09.2016, 01:11

Программа содержит алгоритмическую ошибку.

Протокол работы программы

Введите число Z от 1 до 2147483647 z=2147483647
n=1 n!=1
n=2 n!=2
n=3 n!=6
n=4 n!=24
n=5 n!=120
n=6 n!=720
n=7 n!=5040
n=8 n!=40320
n=9 n!=362880
n=10 n!=3628800
n=11 n!=39916800
n=12 n!=479001600
n=13 n!=1932053504
n=14 n!=1278945280
n=15 n!=2004310016
n=16 n!=2004189184
n=17 n!=-288522240
n=18 n!=-898433024
n=19 n!=109641728
n=20 n!=-2102132736
n=21 n!=-1195114496
n=22 n!=-522715136
n=23 n!=862453760
n=24 n!=-775946240
n=25 n!=2076180480
n=26 n!=-1853882368
n=27 n!=1484783616
n=28 n!=-1375731712
n=29 n!=-1241513984
n=30 n!=1409286144
n=31 n!=738197504
n=32 n!=-2147483648
n=33 n!=-2147483648
n=34 n!=0
n=35 n!=0

Начиная c n=12 имеет место целочисленное переполнение, которое при n=34 приводит к зацикливанию программы.

Исключение арифметического переполнения: либо

Pascal
9
while (maxint div n >= f) and (f <= z) do

либо, на худой конец,

Pascal
4
5
6
7
repeat
write('Введите число Z от 1 до 39916800 z=');
readln(z);
until(z>0)and(z<=39916800);

(это для maxint = 2147483647, для maxint = 32767 заменить 11!=39916800 на 7!=5040)

@Puporev · 27.09.2016, 09:19

Да, накидал и не потестировал, вот так и дурю студентов.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var n,z,f:integer;
begin
repeat
write('Введите число Z от 1 до 12!=479001600 z=');
readln(z);
until(z>0)and(z<=479001600);
f:=1;
n:=1;
while f<=z do
 begin
  writeln('n=',n,' n!=',f);
  n:=n+1;
  f:=f*n;
 end;
end.

@Cyborg Drone · 29.09.2016, 22:33

А, да... И я всё перепутал. До 12! помещается.

Новые блоги и статьи Все статьи Все блоги /
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK сделайте это, JDK, то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера . . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .

Найти и вывести на экран все N и N!, для которых значение N! не превосходит заданное с клавиатуры число Z

Решение

Решение

@TheCoolday 0 / 0 / 0 Регистрация: 25.09.2016 Сообщений: 7

	Найти и вывести на экран все N и N!, для которых значение N! не превосходит заданное с клавиатуры число Z 25.09.2016, 21:23. Показов 3053. Ответов 5 Метки нет (Все метки) Найти и вывести на экран все N и N!, для которых значение N! не превосходит заданное с клавиатуры число Z. (Обязательно должно присутствовать цикл while). Спасибо за внимание/помощь. 0

@TheCoolday 0 / 0 / 0 Регистрация: 25.09.2016 Сообщений: 7
	26.09.2016, 19:28 [ТС]
	Puporev, спасли жизнь студента и студентов которые будут гуглить данную задачу. 0

@Cyborg Drone Модератор 10411 / 5698 / 3401 Регистрация: 17.08.2012 Сообщений: 17,350
	29.09.2016, 22:33
	А, да... И я всё перепутал. До 12! помещается. 0