Написать программу pascal: найти сумму всех чисел с клавиатуры, кратных заданному числу a.
Сашуньк
1
30.05.2019 20:00
1
Другие вопросы по теме Информатика
denis14882
19.10.2020 09:25
SergeSaenko
19.10.2020 08:48
znanijacom77
19.10.2020 08:48
GoriachiyKirill
19.10.2020 08:48
ivanovaanyuta
19.10.2020 07:47
Temir338
08.07.2019 14:40
Yogurt1958
11.08.2019 07:00
Сиронарк
22.10.2020 08:45
Популярные вопросы
- Какие числа называют взаимно простыми? Приведите примеры взаимно простых чисел....
3 - Можно ли простое число записать в виде суммы: а) двух чётных чисел; б) двух...
2 - Подберите такие натуральные числа а иb, чтобы выполнялось равенство: 3а +...
2 - Может ли сумма двух простых чисел быть простым числом? б) Верно ли, что сумма...
3 - С таблицы простых чисел: а) определите, какие из чисел 47; 69; 127; 301; 447;...
1 - Не пользуясь таблицей простых чисел, докажите, что число: а) 29; б) 41; в)...
2 - Напишите четырёхзначное число, которое делится на 9. Может ли оно не делиться...
3 - Что называют делителем натурального числа; простым делителем натурального...
3 - Используя признак делимости на 4, определите четыре первых високосных года...
2 - Некто пообещал дать 99 конфет тому, кто сумеет их разделить между четырьмя...
2
var n,a,i,s,q:integer;
begin
read(n);
read(a);
s:=0;
for i:=1 to n do
begin
read(q);
if(q mod a=0)then s:=s+q;
end;
writeln(s);
end.