Дана последовательность чисел, заканчивающаяся нулем. определить количество чисел не оканчивающихся на 2 и кратных расписать всё подробно и понятно в pascal.
nastasyakiribe
3
14.11.2019 20:49
3
Другие вопросы по теме Информатика
zudavaikin
10.12.2021 05:13
Ser099gei
24.06.2019 00:10
Halimali10
06.09.2019 21:30
M1N1G4M3R1
06.09.2019 21:30
Mafg
06.09.2019 21:30
mahotinvasili
06.09.2019 21:30
sashazhuravleva
06.09.2019 21:30
21062017
21.12.2019 14:06
Kir2905
21.12.2019 14:05
Популярные вопросы
- Особенности экономического развития США рабовладельческий юг промышленный севервывод:...
3 - Как изменится сопротивление проводника, если длинупроводника уменьшить в 2 раза,...
2 - Прочитайте текст (BS-B8). Заполните каждый из пропусков только одним словом,...
3 - Литература 6 класс 2 часть меркин стр210 номер и номер 4 на стр 211...
2 - Обведите обращение. Вставьте пробущеные буквы...
2 - Мюзикл Призрак оперы заполнить таблицу!...
2 - Позачте безполучникове складне речення, між частинами якого треба потавити двокрапку...
1 - Химия 7 клас перед посівом насіння помідорів дезінфікують розчином иєу якому...
3 - Як ви розумієте вислів Івана III : «Та курка померла , яка несла татарам золоті...
3 - Трапеция ABCD вписана в окружность, причем eё основание AD является диаметром...
2
PascalABC.NET
begin
ReadSeqIntegerWhile(p -> p <> 0). // читать последовательность
Where(p -> (p mod 3 = 0) and (Abs(p) mod 10 <> 2)). // условие отбора
Count. // посчитать, сколько отобралось
Println // вывести результат
end.