Ответы на вопрос:
Program n1; var n, i: integer; p: real; begin write('введите n: '); readln(n); if (n> =1) and (n< =10000) then begin p : = 1; for i : = 2 to n do p : = p * i; writeln(n, '! = ', p); end; end.
Популярно: Информатика
-
NOKANplay28.04.2020 07:50
-
joeehazber09.09.2020 02:22
-
littlefoxy28.03.2020 19:00
-
12345678978510.12.2021 20:19
-
PowerDrist17.10.2020 23:13
-
batareya66605.02.2022 04:50
-
СнежанаВолк16.08.2021 22:36
-
ульянка3707.04.2020 17:20
-
isaevshamil053515.04.2020 14:09
-
Tasher3tapora04.07.2020 17:54