Question

50 PUNCTE+COROANA!
ex1 vă rog din tot sufletul

Answer 1

program aflaFacotial;

function Factorial(n: integer): integer;
var p, i:integer;
begin  p:=1;
  for i:=1 to n do p:=p * i;
  Factorial:=p;
end;
begin
  writeln('2! = ' + Factorial(2));
  writeln('3! = ' + Factorial(3));
  writeln('7! = ' + Factorial(7));
end.

Tipul parametrului formal este integer, de unde?  
Factorial(n: acesta)
Factorial(n: integer)

Tipul rezultatului returnat este la fel integer, de unde?  
Factorial(n: integer): acesta;
Factorial(n: integer): integer;

Variabilele declarate in corpul functei sunt 
p , i si sunt integer.
Succes.
:)

234c1d84cba2de0c6d5e3b59628bd533.pas