Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.96/47: Рейтинг темы: голосов - 47, средняя оценка - 4.96
0 / 0 / 0
Регистрация: 10.11.2013
Сообщений: 13

Написать программу, которая вычисляет факториал числа, введенного с клавиатуры

20.05.2014, 13:59. Показов 8726. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задание №3. Составить программу на языке программирования Pascal, используя оператор цикла.
Написать программу, которая вычисляет факториал числа, введенного с клавиатуры.

Помогите сделать народ
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.05.2014, 13:59
Ответы с готовыми решениями:

Написать программу, которая вычисляет среднее геометрическое положительных элементов введенного с клавиатуры массива целых чисел
Написать программу, которая вычисляет среднее геометрическое положительных элементов введенного с клавиатуры массива целых чисел

Написать программу, которая вычисляет факториал
Написать программу, которая вычисляет факториал числа, введенного с клавиатуры. (Факториалом числа n называется произведение целых чисел ...

Создать программу, которая благодаря рекурсии будет вычислять факториал числа, введённого пользователем с клавиатуры
Создать программу, которая с помощью рекурсии будет вычислять факториал числа, введённого пользователем с клавиатуры

3
 Аватар для Новичок
1682 / 1098 / 489
Регистрация: 17.07.2012
Сообщений: 5,361
20.05.2014, 19:02
DS95, поиск. Эту задачу уже решали столько раз...
0
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
22.05.2014, 21:19
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
  n, i : Byte;
  ans1, ans2, ans3 : Double;
  
begin
  ans1 := 1; ans2 := 1; ans3 := 1;
  Write('Input n='); ReadLn(n);
  for i := 1 to n do
    ans1 := ans1 * i;
 
  i := 2;
  while (i <= n) do
  begin
    ans2 := ans2 * i;
    Inc(i);
  end;
  
  i := 1;
  repeat
  begin
    ans3 := ans3 * i;
    Inc(i);
  end;
  until (i > n);
  Write(ans1:3:0, ' ', ans2:3:0, ' ', ans3:3:0);
end.
т.к. не сказано какой именно цикл нужно применить - выбирайте любой.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.05.2014, 21:19
Помогаю со студенческими работами здесь

Написать программу, которая вычисляет факториал введенного с клавиатуры числа
:cry:Турбо Паскаль с процедурой Написать программу, которая вычисляет факториал введенного с клавиатуры числа 7(((((((((((( Добавлено...

Написать программу, которая вычисляет факториал числа, введенного с клавиатуры
Приветствую Всех. Помогите пожалуйста. Написать программу, которая вычисляет факториал числа, введенного с клавиатуры. ...

Написать программу, содержащую функцию, которая вычисляет факториал числа, введенного с клавиатуры
Написать программу, содержащую функцию, которая вычисляет факториал числа, введенного с клавиатуры. __________________________ P.S....

Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел
Помогите написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел,...

Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел размером 3х2.
Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел размером 3х2.


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
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/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru