Напишите программу, которая в последовательности целых чисел вычисляет сумму всех чисел, кратных 5 или 9. программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введенные числа по модулю не превышают 30 000. программа должна вывести одно число: сумму всех чисел, кратных 5 или 9.
InfoChan
1
25.06.2019 23:50
31
Другие вопросы по теме Информатика
владик216
20.05.2019 23:10
koshtalev
20.05.2019 23:10
erlan002
16.07.2019 04:30
Настечок
08.07.2019 18:40
яна200320032003
08.07.2019 18:40
misterion10
25.05.2019 09:50
лапка27
15.11.2020 13:15
malinka140117
15.11.2020 13:14
2005SuperMax2005
24.05.2019 02:20
Популярные вопросы
- Нұр Сұлтан қаласының флорасы мен фаунасы. Немесе, Ақмола облысының флорасы...
2 - Определить тип текста По каким признакам ты догадался(лась)? Выпиши...
1 - Обчисліть загальне число молекул у суміші ,що складається з азоту N²...
2 - 8. Укажите существительные в предложном падеже. А)Чайник,ЛисаВ)Чайника,ЛимыС)Чайником,ЛисойD)О...
3 - 3(2х*3)-5(х+4)=2(х+5)+5х решите нужно....
2 - Табиғи және жасанды материалардардаң Кемшілігі мен артықшылығы...
1 - 5. Бұлт суретіндегі сөздерді көп нүктенің орнын қойып, өлеңді54 БІЗ...
1 - Fascinating buildings Drag a suitable word from the box into the sentences....
2 - Что-то на татарскомЧто-то на татарском56+3445+6734+56...
3 - Найдите длину окружности если диаметр равен одна четвёртая м...
1
var a,b:integer;
beginwriteln('введите числа окончив последовательность нулём');
readln(a);
b:=0;
while (a<>0) do beginif
((a mod 5 = 0) or (a mod 9 = 0)) then
b:=b+a;
readln(a);
end;
writeln('ответ ' ,b);
end.