Question

Помогите с 1 задачей
1)При заданном n вычислить n факториал

Answer 1

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

967cea4feb17fe0fd311e1d63d73ddd7.txt

Answer 2

var n,i: Integer;
f: LongInt;
begin 
writeln('vvedite n=');
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
writeln('faktorial=',f);
readln;
end.

967cea4feb17fe0fd311e1d63d73ddd7.txt