Question

Помогите, люди добрые <3

Answer 1

2. program faktorial;

    uses crt; 

    var n,i,k : longint;

begin

writeln('Введите желаемое значение'); 

readln(n); 

k:=1; 

for i:=1 to n do k:=k*i; 

writeln('Факториал числа ',n,' равен ', k); 

end.

Легче уже некуда.