Факториал - Pascal ABC (12580)

Узнай цену своей работы

Формулировка задачи:

Здравствуйте,помогите пожалуйста написать программу.Напишите программу, которая вычисляет факториал натурального числа N ( 1 ≤ N ≤ 10000 ), сохранив все значащие цифры. Факториалом называется произведение всех натуральных чисел от 1 до N : N ! = 1·2·3... ( N - 1)· N . Входные данные Входная строка содержит натуральное число N ( 1 ≤ N ≤ 10000 ). Выходные данные Программа должна вывести факториал числа N . Примеры входные данные 6 выходные данные 720

Решение задачи: «Факториал»

textual
Листинг программы
var
N,i,k:longint;
begin
k:=1;
write('Введите N: ');
readln(N);
for i:=1 to N do begin k:=k*i;
writeln(N,'! = ',k);
end;
end.

Объяснение кода листинга программы

  1. Переменная k инициализируется значением 1.
  2. Выводится сообщение «Введите N: », чтобы пользователь мог ввести значение переменной N.
  3. Считывается значение переменной N с помощью функции readln().
  4. Запускается цикл for, который выполняется от 1 до N (включительно).
  5. Внутри цикла значение переменной k умножается на значение переменной i.
  6. Выводится сообщение N! = с значением переменной k.
  7. Цикл завершается, и программа заканчивается.

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы