Факториал через функцию
var
X1,F: integer;
function fak (A:integer) : integer;
begin
if (A=0) or (A=1) then fak :=1 else
Fak:=A*fak(A-1);
end;
F:= fak (X1);
Write (F);
end.
var
X1,F: integer;
function fak (A:integer) : integer;
begin
if (A=0) or (A=1) then fak :=1 else
Fak:=A*fak(A-1);
end;
begin
Read (x1);F:= fak (X1);
Write (F);
end.
Немає коментарів:
Дописати коментар