Дано целое число N (больше 0)

Найти произведение

N!=1*2 ... N.

N (факториал). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и вынести его как вещественное число

Question

Информатика

Гуня

16 февраля, 16:37

Дано целое число N (больше 0)

Найти произведение

N!=1*2 ... N.

N (факториал). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и вынести его как вещественное число

+3

Ответы (1)

Знаете ответ на вопрос?

Илюня · Answer 1

Var

f:real;

i, n:longint;

begin

write ('Write n: ') ; readln (n) ;

f:=1;

for i:=1 to n do

begin

f:=f*i;

end;

writeln ('fact: ', f:0:0) ;

end.