Сделать ! напишите программу,которая в последовательности целых чисел определяет количество четных чисел кратных 3.программа получает на выход целые числа .количество введенных чисел неизвестно ,последовательность чисел заканчивается числом 0 (0-признак окончания ввода,не входит в последовательность ).количество чисел не превышает 1000. введенные числа по модулю не превышают 30 000. программа должна вывести одно число: количество четных чисел,кратных 3 сделать ? ?
СССС69
2
30.06.2019 05:40
0
Другие вопросы по теме Информатика
David3464
08.03.2019 17:04
brainsofi1
08.03.2019 16:59
РаскольниковРодион
08.03.2019 16:57
Lizamog1
08.03.2019 16:18
тиматимуша
08.03.2019 16:12
toby000
08.03.2019 16:08
armeninkrasavcheg
08.03.2019 15:55
bektemirova1
08.03.2019 15:43
мурад2008
08.03.2019 14:51
Популярные вопросы
- В каком интервале находятся массы звёзд по сравнению с массой солнца...
2 - Оқушы жобасының атын «Ыдысқа жеміс жинау» деп өзгертті және тақырыпқасәйкес...
2 - ОЧЕНЬ ОТВЕТ НУЖЕН В ТЕЧЕНИИ ЧАСА. радиоуправляемый робот может поворачивать...
1 - Здравствуйте, программисты. Я написал Калькулятор дробный , и у меня не работает,...
3 - Центральная Россия • Ведущие центры и их продукция • Проблемы региона...
3 - Сор по математике 6 клас 3 четверть #2...
2 - Если правильно, отмечу лучшим!1!1! Только...
2 - ответьте на все во Антифашисткая коализация и её деятельность. 2. Коренной...
2 - Число a больше чем 1433 на 503, а число b меньше чем 1433 на 1389. Чему равна...
3 - Заполнить таблицу по теме «Опричнина» 1 столбик годы 2 столбик основные мероприятия...
2
var c,k,a: integer;
begin
a:=1;
while (a<>0) and (c<2) do
begin
read(a);
if (ABS(a)<30000) and (a<>0) then
if ((a mod 2) = 0) and ((a mod 3)=0) then inc(k);
inc(c);
end;
writeln('kol = ',k);
end