Ответы на вопрос:
Var a: integer; p: real; begin p: =1; for a: = 100 to 620 do if a mod 23 = 0 then p: =p*a; writeln('p = ',p); end. результат работы программы: p = 1.5255279798308e+55 var a: integer; p: real; begin p: =1; for a: = 11 downto 6 do p: =p*a; writeln('p = ',p); end. результат работы программы: p = 332640
Популярно: Информатика
-
ilslim20.06.2021 02:01
-
Trumpumpum02.02.2022 21:52
-
lren126.10.2020 23:01
-
ivolapseb26.11.2020 02:53
-
зарина29829.04.2022 02:48
-
ддддд2007.03.2020 21:15
-
Piragovicch17.05.2023 16:45
-
hydraclaireau08.01.2023 07:24
-
livekristinka04.12.2022 01:42
-
eksergeeva524.09.2022 16:25