Ответы на вопрос:
Та вообще легко оказалась. ну в файлики сами напишите если реально надо var n, k, d, count: integer; begin readln(n, k); count : = 0; for d : = 1 to 30 * n do if (d mod 30 = 13) and ((d + k - 1) mod 7 = 5) then count : = count + 1; writeln(count); end.
Популярно: Информатика
-
daniltarakanov28.08.2021 23:03
-
fomax133704.07.2022 16:36
-
MELEKLER8715.06.2023 21:23
-
tdv8412.12.2020 03:04
-
RealBohdan28.07.2021 02:40
-
Аня3456612.01.2023 10:35
-
Milimili1234506.10.2020 23:39
-
teymurnadjafov19.05.2020 22:28
-
Шуранька08.03.2023 21:17
-
Nikia107.04.2022 01:56