Ответы на вопрос:
Var i,f,n: integer; begin readln(n); i: =0; f: =1; repeat i: =i+1; f: =f*i; until i< n; write(f); end.
Популярно: Информатика
-
miloft06.11.2021 17:11
-
Мороз2526.08.2022 02:43
-
Polly201126.05.2022 02:29
-
8905086469030.05.2022 18:02
-
dodmitry18.06.2020 10:01
-
bikimbetovadarina24.06.2022 08:34
-
дядялёняййццйуйу11.11.2020 14:35
-
feliz360025.03.2022 05:22
-
Giy29.09.2020 03:12
-
нюша30516.09.2020 09:54