Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
Рейтинг 4.68/124: Рейтинг темы: голосов - 124, средняя оценка - 4.68
10 / 10 / 2
Регистрация: 23.09.2012
Сообщений: 427

Дано натуральное число n. Найти факториал этого числа (n!)

02.10.2012, 18:12. Показов 24365. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано натуральное число n. Найти факториал этого числа (n!). Сделать три решения задачи: 1) с использованием цикла For; 2) While; 3) Repeat.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
02.10.2012, 18:12
Ответы с готовыми решениями:

Дано натуральное число n. Необходимо найти сумму тех цифр этого числа, которые больше 5
B. Сумма «больших» цифр Дано натуральное число n. Необходимо найти сумму тех цифр этого числа, которые больше 5. Формат...

Дано натуральное число. Определите, сколько чётных цифр используется в записи этого числа
Дано натуральное число . Определите, сколько чётных цифр используется в записи этого числа. Нашёл на C++ а на Pascal ABC не нашёл (...

дано натуральное число найти самую большую цифру этого числа
2.Дано слово если его длинна не четная ,то удалить среднюю букву,в противном случае две средние буквы 3.известны данные о массе и объеме...

4
 Аватар для BumerangSP
4311 / 1423 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
02.10.2012, 18:43
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var i,r,n: integer;
begin
 readln(n);
 r:=1;
 for i:=1 to n do
  r:=r*i;
 writeln('For: ',r);
 i:=1;
 r:=1;
 while i<=n do
  begin
   r:=r*i;
   inc(i);
  end;
 writeln('While: ',r);
 i:=1;
 r:=1;
 repeat
  r:=r*i;
  inc(i);
 until i>n;
 writeln('Repeat: ',r);
end.
2
 Аватар для HighPredator
6045 / 2160 / 753
Регистрация: 10.12.2010
Сообщений: 6,005
Записей в блоге: 3
02.10.2012, 18:45
Вот уж что, а факториалы на форуме безумное количество раз рассматривались. Используйте поиск:
Составить программу вычисления n! (n-факториал)
Вычислить N! N вводится с клавиатуры
Вычислить факториал заданного целого числа
По этим ссылкам факториалы реализованы с помощью цикла for. Если вы прочтете что-нибудь о циклах в языке паскаль, то преобразовать в два остальных варианта труда не составит.
0
02.10.2012, 18:51

Не по теме:

HighPredator, :pardon:

0
10 / 10 / 2
Регистрация: 23.09.2012
Сообщений: 427
02.10.2012, 18:51  [ТС]
Ок, спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
02.10.2012, 18:51

Дано натуральное число N. Наити все простые натуральные делители этого числа..
Дано натуральное число N. Наити все простые натуральные делители этого числа.. заранее спасибо!!!

дано целое положительное число.найти число,равное сумме кубов этого числа
дано целое положительное число.найти число,равное сумме кубов цифр исходного числа.//не могу разобраться.помогите пожалуйста

Дано натуральное число N. Найти: произв. цифр числа и ...
Дано натуральное число N. Найти: а) Произведение цифр числа; б) Верно ли, что данное число заканчивается и начинается на нечётную...

Дано случайное число. Найти количество цифр этого числа, больших k
Дано случайное число. Найти количество цифр этого числа, больших k. Через While.

Дано случайное число. Найти произведение четных цифр этого числа
Дано случайное число. Найти произведение четных цифр этого числа.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм
anaschu 30.08.2026
Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы.
russiannick 30.08.2026
Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru