Ответы на вопрос:
// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin writeln(range(15,25).aggregate(int64(,q)-> p*q)) end. результат 177925144320000
Var a: integer; p: real; begin p: =15; for a: = 16 to 25 do p: =p*a; writeln('p = ',p) end.
Популярно: Информатика
-
vikaplmplmpl21.10.2022 14:17
-
oksankavelsh25.07.2022 02:05
-
mrusinova21.02.2021 22:29
-
Владивостокер27.07.2021 03:51
-
dashadgankozde8z28.03.2021 11:04
-
Kseniacаt07.07.2022 12:12
-
sna200303.05.2020 08:40
-
milenkakonfetka12.04.2022 10:26
-
ужасер12.01.2022 22:04
-
Mirana46627.12.2021 02:31