Ответы на вопрос:
Var i,p,n: integer; begin p: =1; readln(n); for i: =1 to n do p*=i; writeln(p); end.
Популярно: Информатика
-
tanya101nfjgh026.08.2021 04:49
-
LeНин24.05.2023 18:06
-
irina56789014.02.2022 13:11
-
Карина220907.05.2020 14:49
-
svetlanaivanova305.01.2021 12:59
-
missapikova27.12.2022 22:40
-
Karelovamark06.06.2020 01:26
-
LegendYT06.10.2021 08:34
-
jrbr31.08.2021 22:17
-
ксюнчик1226.02.2021 13:49