Х 3+28
№ 3 Найти все значения Y, где баллов
для всех значений Х, кратных 4, из интервала от 5
до 30
167
189
Ответы на вопрос:
Var i, k, n, sum: integer; a: array[1..1000000] of integer; begin readln(n, k); for i: =1 to n do a[i]: =i; sum: =0; for i: =1 to n do if a[i] mod k = 0 then sum: =sum+a[i]; writeln(sum); end.
Популярно: Информатика
-
Unicorn13528.03.2020 17:18
-
Privet3452216.01.2021 03:52
-
Daniel20001124.03.2023 04:38
-
vadim115425.01.2021 00:01
-
arada108.10.2020 07:44
-
zilga107.02.2023 16:07
-
SamForDevil26.07.2021 08:48
-
danilaandriyanov24.05.2022 22:18
-
sasjhapodkolzin11.09.2022 18:29
-
Colnre25.05.2021 03:57