Посчитать произведение целых чисел от 1 до N

@Furnitura · Регистрация: 12.11.2013

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

Помогите решить задачу по Паскалю.

Задача "Произведение"
Требуется посчитать произведение целых чисел от 1 до N.
Входные данные:
В строке ввода записать единственное натуральное число N, не превышающее по абсолютной величине 15.
Выходные данные:
В строке вывода - целое число, являющееся произведением чисел 1 до N.

Заранее благодарен за помощь.

@Cyborg Drone · 12.11.2013, 22:25

Furnitura, это называется факториал.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program fact;
 
var i, n, f: integer;
 
begin
  write('n = ');
  readln(n);
  f := 1;
  for i := 2 to n do f := f * i;
  writeln('n! = ', f);
  readln
end.

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

Не по теме:

А сами-то... Что же? Простая же программа, если такое не учиться писать, зачем вовсе учиться?

@Furnitura · 12.11.2013, 22:32 **[ТС]**

Большое спасибо.
И если вам не трудно можете решить ещё одну.
Я то всё решил просто это работа мне очень важна а так как не с кем сверить просто прошу помочь.

Задача. «Золото племени»

(Текст программы ≤ 256 Кбайт; время компиляции ≤ 1 мин) Мах оценка задачи:3 балла
Главный вождь племени не умеет считать. В обмен на одну из его земель вождь другого племени предложил ему выбрать одну из трех куч с золотыми слитками. Но вождю первого племени хочется получить наибольшее количество золотых слитков. Помогите вождю сделать правильный выбор!
Входные данные

В первой строке ввода записаны три натуральных числа через пробел. Каждое из чисел не превышает 32767.
Выходные данные

На экран нужно вывести одно целое число — максимальное количество слитков, которые может взять вождь.

Новичок · 12.11.2013, 22:56

Сообщение от Cyborg Drone

integer;

А Integer вытянет?Может все-таки LongInt?

@Furnitura · 12.11.2013, 22:59 **[ТС]**

Да вытянет проверил толька что.

@Cyborg Drone · 13.11.2013, 00:41

Новичок, да, в "чистом" Паскале не вытянет. 15! = 1307674368000, а 2³¹ - 1 = 2147483647... Лопухнулся я... LongInt надо.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Furnitura 0 / 0 / 0 Регистрация: 12.11.2013 Сообщений: 5

	Посчитать произведение целых чисел от 1 до N 12.11.2013, 21:27. Показов 2904. Ответов 5 Метки нет (Все метки) Помогите решить задачу по Паскалю. Задача "Произведение" Требуется посчитать произведение целых чисел от 1 до N. Входные данные: В строке ввода записать единственное натуральное число N, не превышающее по абсолютной величине 15. Выходные данные: В строке вывода - целое число, являющееся произведением чисел 1 до N. Заранее благодарен за помощь. 0

@Furnitura 0 / 0 / 0 Регистрация: 12.11.2013 Сообщений: 5
	12.11.2013, 22:32 [ТС]
	Большое спасибо. И если вам не трудно можете решить ещё одну. Я то всё решил просто это работа мне очень важна а так как не с кем сверить просто прошу помочь. Задача. «Золото племени» (Текст программы ≤ 256 Кбайт; время компиляции ≤ 1 мин) Мах оценка задачи:3 балла Главный вождь племени не умеет считать. В обмен на одну из его земель вождь другого племени предложил ему выбрать одну из трех куч с золотыми слитками. Но вождю первого племени хочется получить наибольшее количество золотых слитков. Помогите вождю сделать правильный выбор! Входные данные В первой строке ввода записаны три натуральных числа через пробел. Каждое из чисел не превышает 32767. Выходные данные На экран нужно вывести одно целое число — максимальное количество слитков, которые может взять вождь. 0

@Furnitura 0 / 0 / 0 Регистрация: 12.11.2013 Сообщений: 5
	12.11.2013, 22:59 [ТС]
	Да вытянет проверил толька что. 0

@Cyborg Drone Модератор 10451 / 5741 / 3409 Регистрация: 17.08.2012 Сообщений: 17,474
	13.11.2013, 00:41
	Новичок, да, в "чистом" Паскале не вытянет. 15! = 1307674368000, а 2³¹ - 1 = 2147483647... Лопухнулся я... LongInt надо. 0