Ответы на вопрос:
1.var i,n,s:integer;
2.begin
3.readln(n);
4.s:=1;
5.for i:=1 to n do
6.s:=s*i;
7.writeln(s);
8.end.
Объяснение:
Популярно: Информатика
-
OLYAPAVLOVA1515.10.2020 05:18
-
7Настася729.05.2023 16:23
-
ChupinMaxim27.08.2022 04:29
-
ijrts08.04.2021 08:47
-
HKTOG21.06.2023 20:58
-
СталкерняотВовы06.03.2023 14:13
-
Dimaj18.04.2021 04:26
-
злючка2602.10.2021 06:20
-
Nimixim11.01.2023 00:59
-
rzd113.04.2021 18:40