Ответы на вопрос:
Var n,f,i: integer; begin n: =10; f: =1; for i: =1 to n do f: =f*i; writeln(n,'! = ',f); end. результат: 10! = 3628800
Популярно: Информатика
-
оооопп06.09.2021 08:51
-
Lia2002031308.01.2022 22:12
-
asino2014513.06.2020 11:15
-
LeXonG05.03.2022 19:59
-
Даша14518610.12.2022 08:44
-
garev064danil06.02.2023 16:39
-
JackKalibr04.09.2021 05:07
-
Катя754421.01.2023 05:10
-
Мастер00216.06.2020 07:14
-
fgugjxg30.06.2023 07:06