Question

Напиши программу на языке Паскаль и выведи ответ на экран.
Вычислить n!, если значение n пользователь вводит с клавиатуры.

Если n=1, то на экране выводится n!=
Пожалуйста помогите​

Answer 1

Ответ:

var n:integer;otvet:real;

begin

 writeln('Введи n:');

 readln(n);

 otvet:=1;

 for var i:=1 to n do otvet:=otvet*i;

 writeln('n!=',otvet);

end.

Answer 2

Ответ:

#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;

cout<<"N=";

cin>>N;

cout<<N<<"!="<<fact(N)<<endl;

return 0;

}