Напишите программу, которая в последовательности целых чисел определяет количество нечётных чисел, кратных 3. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести два числа: длину последовательности (завершающий 0 не учитывается) и количество нечётных чисел, кратных 3. пример работы программы: входные данные: 4,6,15,180,0. выходные: 4,1.
avatar23455
3
20.09.2019 20:40
5
Другие вопросы по теме Информатика
customsto
17.09.2019 04:40
Катя092006
17.09.2019 04:40
selinnikita22
17.09.2019 04:40
Slipknot55479876544
12.06.2019 19:40
sona673
12.06.2019 19:40
PolinaS82001
12.06.2019 19:40
Лессикаа
14.09.2019 20:50
Оля11111110
14.09.2019 20:50
LOlka228322
08.10.2021 18:08
Популярные вопросы
- 1)с одной грядки собрали 12 помидоров, с другой 18. все помидоры разложили...
2 - Твір-роздум слово не повинно розходитись з ділом 7-10 речень...
3 - 1. поч у крыс и мышей красные глаза? 2. как понимать бегут,как крысы с тонущего...
3 - 3ящика с конфетами весят столько же сколько 7 ящиков печенья ящик с конфетами...
3 - Начерти два отрезка длина первого 4 см а длина второго на 2 см больше...
3 - Опис 7 планети з твору маленький принц! !...
1 - Задано функцію : у= 4х-5 1.значення функції , якщо значення аргументу дорівнює...
3 - Найдите массу осадка,который образуется при сливани 106 г.20%-го раствора...
1 - Сколько стоит фетр в клубке в кишиневе...
1 - Подготовь устный рассказ на тему что я знаю о глаголе....
3
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray;
Print(a.Count,a.Where(x->(x mod 2<>0)and(x mod 3=0)).Count);
end.
Пример:
20 87 15 46 61 0
5 2