Tabulpap
5 год назад
Дано целое число N(больше 0)Найти произведение N!=1*2...N.N(факториал).Чтобы избежать целочисленного переполнения,вычислять это произведение с помощью вещественной переменной и вынести его как вещественное число
ОТВЕТЫ
Радостина
Oct 24, 2020
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.
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.
967
Смежные вопросы:
