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

Ответы и объяснения

2014-04-04T10:21:04+00:00
Var N, F, i :integer;
begin
  writeln('введите число');
  ReadLN(N);
  F:=1;
  for i:=1 to N do F:=F*N;
  write('факториал числа ',N,' = ',F);
end.