Дано целое число n(больше 0) найти произведение n! =1*. n(факториал).чтобы избежать целочисленного переполнения,вычислять это произведение с вещественной переменной и вынести его как вещественное число
151
300
Ответы на вопрос:
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.
x=int( #просим ввести число от пользователя
for i in range(1,x): #цикл который идет с 1 тк как делить на ноль нельзя и до числа не вкл его
if x%i==0: #проверка на делимость
print(i)#выводит результат
Популярно: Информатика
-
RownBitter19.05.2022 18:50
-
nastya63201125.10.2020 18:33
-
Desa1106.11.2022 08:28
-
mirator9106.05.2022 15:30
-
kirill88509.04.2023 07:26
-
fpokryshkin23.05.2021 22:22
-
2006anna107.01.2022 12:58
-
браинли5623.08.2022 19:11
-
Polina847224.12.2021 03:25
-
шпион22370915.03.2022 08:25