:факториал числа представляет собой произведение всех натуральных чисел от 1 до этого числа включительно. например, факториал числа 7 выглядит так: 1 * 2 * 3 * 4 * 5 * 6 * 7 факториал числа обозначается как само число после которого следует восклицательный знак. например, 7! . таким образом: 7! = 1 * 2 * 3 * 4 * 5 * 6 * 7 = 5040 требуется определить факториал числа, которое ввел пользователь.
sowaties
3
29.05.2019 05:30
3
Другие вопросы по теме Информатика
Dima1208
09.04.2019 21:14
George6666666
23.12.2019 08:51
hihilaim
23.12.2019 08:49
Maqa11
23.12.2019 08:47
Cerd
23.12.2019 08:44
yiliamasegorova
23.02.2021 12:27
COCOBAKUOFFICI
23.02.2021 12:28
maksukras
02.04.2019 23:28
milka293
02.04.2019 23:48
Популярные вопросы
- Втреугольнике абц с прямым углом ц найдите синусы косинусы и тангенсы...
2 - Дана арифмeтическая прогрессия аn.вычислите сумму 13 членов, если а₉=-20,...
3 - Составьте два предложения о том как выглядит дуб осенью...
1 - Вкаких произведениях описывается предательство друзей?...
2 - Первый император священной римской империи оттон 1 также известен чем,что...
1 - Придумать предложение со словом кошка и причастным оборотом...
1 - Справедливо ли нашу планету называют землёй? ))...
1 - Вбассейн из двух труб вливается вода. из одной трубы со скоростью 37...
3 - Вкаком образе мефистофель впервые явился гётевскому фаусту?...
2 - Почему стихотворение н. а. некрасова на волге считается одним из лучших?...
2
if (n=0) then writeln('0!=1') else
if (n<0) then writeln('Определяется только для положительных чисел') else
begin
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!='s:0:0);
end;
2)function f(x:byte):real;
begin
if x=0 then f:=1
else f:=f(x-1)*x;
end;2
с рекурсии, как видно
x,n:integer;
begin
f:=1;
write('N='); readln(N);
if N<0 then writeln('EROOR!') else
if N=0 then writeln('N!=',1)
else begin
for x:=2 to N do
f:=f*x;
writeln('N!=',f); end;
end.
Влазят только числа, не превышающие 170.