вычисление n!
var n,i,fact: integer;
begin
write(' n (n<=13) введите: ');
readln(n);
fact := 1;
for i := 2 to n do
fact := fact * i;
writeln(n,'! = ',fact);
end.
Объяснение:
вот прога в языке Паскаль вычисляет н факториал
вычисление n!
var n,i,fact: integer;
begin
write(' n (n<=13) введите: ');
readln(n);
fact := 1;
for i := 2 to n do
fact := fact * i;
writeln(n,'! = ',fact);
end.
Объяснение:
вот прога в языке Паскаль вычисляет н факториал