Задача заключается в следующем: определить н-факториал для числа, введенного с клавиатуры.должен использоваться цикл while/do
Не могу понять, как записать формулу:/
Program nfaktorial;
var
nfak, n, l: integer;
begin
l:= 1;
Writeln('Введите число: ');
Readln(n);
While l<n do {здесь я уже сомневаюсь
}
IF (n-1) = 0 then
begin
Write('1');
End
Else
nfak:= 1*(l+1)*(l+2)*(l+3)*(..)*n {-вся загвоздка в этом..
}
end.
Подскажите пожалуйста, уж очень хочеться решить мне эту задачку
