Ответы на вопрос:
Var f,n,i: integer; begin readln(n); i: =1; f: =1; repeat f: =f*i; i: =i+1; until i> n; writeln(f); end.
Популярно: Информатика
-
Марьяна20041315.10.2020 18:12
-
Phkgd12.05.2022 08:42
-
bioboy30.07.2020 08:19
-
PowerDrist08.12.2022 18:13
-
БЕЙТУЛЛА05.06.2023 18:27
-
Varvarrrrrrrrrra22.12.2022 00:41
-
милана555555506.02.2022 07:35
-
Bamper123.02.2022 00:27
-
lizismik1517.10.2022 07:46
-
christihhh7509.05.2021 18:15