подскажите как записать n! в программе turbo delphi. подскажите как записать n! в программе turbo delphi

Question

Сергей · Accepted Answer

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
var i,fact:integer; 
nfac:int64; 
begin 
readln(nfac); 
fact:= 1; 
I:= 1; 
while (i*fact)<>nfac do begin 
fact:=fact*i; 
inc(i) 
end; 
writeln(i); 
readln(); 
end.

Олеся Пируева · Answer

Roman Pankov: Извините, а что ваша программа делает? Считает факториал до тех пор, пока не достигнет уже известного числа? 
 
procedure fact( n: integer ): integer; 
begin 
if (fact <= 1) then fact := 1; 
else fact := n * fact(n-1); 
end;