напишите программу, которая выводит на экран значение n! включая следующую функцию function factorial (n:integer):integer; var p,i:integer; begin p:=1; for i:=1 to n do p:=p*i; factorial:=p; end;

1

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

  • nemp
  • хорошист
2013-05-15T13:57:26+04:00

Program p1;

uses crt;

function factorial (n:integer):integer; var p,i:integer; begin p:=1; for i:=1 to n do p:=p*i; factorial:=p; end;

var n:integer;

begin

 Write('Введите число, n=');

 Readln(n);

 Writeln('Факториал  = ',factorial(n));

end.