Ответы на вопрос:
Код pascal1 2 3 4 5 6 7 8 const d=5; var n, i: integer; p: longint; begin write('введите число от 1 до 30: '); readln(n); p: =1; for i: =n div d downto 1 do p: =p*d*i; writeln('произведение кратных ',d,': ',p); end.
Популярно: Информатика
-
gushagusha28.06.2020 08:18
-
jkh4094907.03.2021 22:32
-
090904428.11.2020 03:01
-
Nice111111111111113.02.2023 00:42
-
amina34723.05.2021 17:00
-
VeNoM1337118.05.2022 05:50
-
lusindrastsr10.11.2021 09:36
-
diaweeti55130.04.2021 15:12
-
lavelas200815.04.2023 11:04
-
Abdueva17.04.2022 22:00