Ответы на вопрос:
Var n,i: integer; p: real; begin write('n='); readln(n); p: =1; for i: =1 to n do p: =p*i; writeln('p=',p); end. пример: n=10 p=3628800
Популярно: Информатика
-
VidioVizard20.07.2021 21:42
-
dived21.01.2021 19:29
-
19Викушка18.03.2023 18:56
-
ponyni17.10.2021 14:34
-
SweetLOL25.05.2023 11:21
-
12345689012212121218.02.2023 10:09
-
алана2418.11.2022 07:00
-
kotena55525.02.2020 18:02
-
sasha0702200504.12.2020 12:27
-
Sasha25rrtt30.08.2021 16:29