Написать программу, которая вычисляет факториал введенного с клавиатуры числа. (Факториалом числа п называется произведение целых чисел от 1 до n. Например, факториал 1 равен 1, 8-40320). Должен считать до 100. Вычисление факториала. Введите число, факториал которого надо вычислить › 7 Факториал 7 равен 504 0

Сам код(Для C++):

#include <iostream>  

using namespace std;  

long double fact(int N)  

{

if(N < 0) // если пользователь ввел отрицательное число

return 0; // возвращаем ноль

if (N == 0) // если пользователь ввел ноль,

return 1; // возвращаем факториал от нуля

else // Во всех остальных случаях

return N * fact(N - 1); // делаем рекурсию.  

}

int main()  

{

int N; setlocale(0,""); // Включаем кириллицу  

cout << "Введите число для вычисления факториала: ";

cin >> N;

cout << "Факториал для числа " << N << " = " << fact(N) << endl << endl; // fact(N) - функция для вычисления факториала.

return 0;  

}

Объяснение:

2.1. Формулировка задания.

Разработка программы для вычисления факториала.

Факториал числа — это произведение натуральных чисел от 1 до самого числа (включая данное число). Обозначается факториал восклицательным знаком «!».  

Например,

5!=1×2×3×4×5

3!=1×2×3

И тому подобное.

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

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.