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

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

N!=1*2 ... N.

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

Question

Информатика

Настасея

30 августа, 21:39

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

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

N!=1*2 ... N.

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

+5

Ответы (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.