Сделать одномерный массив. в массив a[n] занесены натуральные числа. найти сумму тех элементов, каторые кратны данному значению к. элементы массива вводить с клавиатуры.
213
458
Ответы на вопрос:
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.
6+2=8 6-2=4 8+4=12 8-4=4 4+4=8 шестикутник-6,зірочка-2. ромбик-8,кружечок-4
Популярно: Информатика
-
иртова01.01.2020 05:55
-
alkasalamatina21.04.2022 04:56
-
валенок12314.04.2021 21:15
-
Kurbatovaolga1518.05.2021 23:48
-
Ekaeterina4412.11.2022 00:38
-
сартоваа06.04.2020 22:20
-
Alex979806.02.2020 05:17
-
ulpan04112.08.2022 19:54
-
ДанилКаДми16.09.2021 05:27
-
aika19418.05.2020 07:45