Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
DS95
0 / 0 / 0
Регистрация: 10.11.2013
Сообщений: 13
1

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

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

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

Помогите сделать народ
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.05.2014, 13:59
Ответы с готовыми решениями:

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

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

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

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

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

3
Новичок
Модератор
1511 / 979 / 465
Регистрация: 17.07.2012
Сообщений: 4,969
Завершенные тесты: 3
20.05.2014, 19:02 2
DS95, поиск. Эту задачу уже решали столько раз...
0
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
22.05.2014, 21:19 4
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2014, 21:19

Написать программу, которая для заданного с клавиатуры числа А ищет корень уравнения f(x)=0
Написать программу, которая для заданного с клавиатуры числа А ищет корень...

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

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


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru