Помогите с 1 задачей
1)При заданном n вычислить n факториал
Var
N,N1:integer;
Begin
N1:=1;
Write(N = );ReadLn(N);
For N:= 2 to N do
N1:=N1*N;
WriteLn(N,! = ,N1)
End.
Во вложении вариант для Pascal ABC.net
Оцени ответ
