Дан массив натуральных чисел . найти сумму элементов , кратных заданному к.
207
473
Ответы на вопрос:
Program num1; uses crt; var a : array [1..100] of integer; i,k,n, s : integer; begin clrscr; s: =0; write('k='); readln(k); write('n='); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do if (a[i] mod k)=0 then s: =s+a[i]; writeln('s=',s); end.
Популярно: Информатика
-
snoxj200327.07.2022 23:10
-
NeMaximilan20.02.2020 08:42
-
lasyaaa27.05.2022 11:27
-
khinmy30.04.2021 09:35
-
finicot26.09.2020 10:46
-
evelina202316.02.2020 09:42
-
Алисик98009.02.2020 14:56
-
remizowanikaggr27.06.2021 12:41
-
Kubrex29.10.2021 18:20
-
чивапчич13.05.2022 05:58