Ответы на вопрос:
//pascalabc.net //версия 3.3.5, сборка 1650 begin var n: =readinteger('n='); write(n,'! =',range(1,n).aggregate(real(,b)-> a*b)); end.
Var a,b: integer; begin b : = 1; readln(a); for var i : = 1 to a do b : = b * i; writeln(b); end.
Китайцы-пичифул пачифул итальянский дьецуфала французский-) ах(г)орб(п)
Популярно: Информатика
-
Erkina00007.10.2022 17:24
-
крис90309.10.2020 09:56
-
nastya0110201616.06.2020 20:13
-
anzhelabrosg29.06.2023 14:58
-
lizaivanovamail14.01.2021 12:54
-
UlianaIvleva25.07.2020 13:04
-
тик1234527.10.2020 14:19
-
Vladyslav200911.01.2023 14:17
-
cuwilayab20.09.2022 03:46
-
ainura832604.11.2021 02:29