|
program Factorial;
var n:integer;
function Factor(n:integer):real;
var v:real;
Begin
if n in [0,1] then Factor:= 1 else Factor:= n*Factor(n-1);
end;
begin
Write('Введите число(0..33): ');
Readln(n);
Write('Факториал этого числа равен: ', Factor(n):11:0);
Readln;
End.
|
|
