Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Uses Crt;
var
  i,p,n:longint;
begin
  ClrScr;
  Write(n=); Read(n);
  p:=1;
  for i:=2 to n do p:=p*i;
  Writeln(n!=,p);
  ReadKey
end.