23 ! напишите программу, которая в последовательности натуральных чисел определяет количество нечетных чисел, кратных 3. программа получает на вход натуральные числа через клавиатуру, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести два число: длину последовательности (завершающий 0 не учитывается) и количество нечетных чисел, кратных 3.
gnevasheva1965
3
01.09.2019 12:20
1
Другие вопросы по теме Информатика
parahonya90
20.10.2019 15:24
polina120805
26.10.2020 10:41
skarpion83
26.10.2020 10:41
саша4275
26.10.2020 10:41
tolokvlad
26.10.2020 10:42
sashok0031
26.10.2020 10:42
kotovaann2016
26.10.2020 10:43
fasefasefaceface
26.10.2020 10:43
greatdannil
26.10.2020 10:44
Популярные вопросы
- Найдите область определения функции y=√2x-5...
3 - Для изготовления 10 деталей требуется 3 кг металла.сколько металла...
1 - Что такое дыхательный центр(понятие)...
3 - Напишите 10 слов,чтобы в конце приставки был мягкий знак,а после...
3 - Конфетная фабрика за неделю расходует 18 мешков сахара. сколько...
2 - Можно ли считать петербург персонажем романа 《преступление и наказание》почему?...
1 - Максим задмал число,вычел из неро 740 и полученую разностьумножил...
3 - Однородный бетонный блок в форме прямого параллелипипеда имеет...
1 - Вырази в: а) часах 4сут.= 240мин.= б) сутках 72ч = 3 недели = 96ч=...
1 - Объясните слова иноязычного происхождения.подберите к ним синонимы.респондент,фетиш,стагфляция,спорадический,суверенитет,феномен,прерогатива,протекционизм,паблисити,панацея,пиетет,прайс-лист,кредо,корифей,перлюстрация...
3
var i,k,x:longint;
begin
k:=0;
for i:=1 to 1000 do;
begin
read (x);
if (x mod 2 <> 0) and (x mod 3 = 0) then k:=k+1;
if x=0 then begin
break
end;
end;
write (i-1,' ',k);
end.