Question

2.Факториал числа.Составить программу Паскаль.

Answer 1

var N, F, i :integer;
begin
  writeln('введите число');
  ReadLN(N);
  F:=1;
  for i:=1 to N do F:=F*N;
  write('факториал числа ',N,' = ',F);
end.