Предмет: Информатика, автор: alexogan79

Напишите программы на PascalABC.Net
Задача №3:
Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, не кратных 3 и начинающихся на 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 300. Введённые числа из отрезка [10; 99]. Программа должна вывести одно число: количество всех чисел, не кратных 3 и начинающихся на 2.
Например: 23 48 22 28 24 0 ==> 3

Ответы

Автор ответа: BobbyFresnel
0

begin

 ReadSeqIntegerWhile(p -> p <> 0)

   .Count(p -> (p div 10 = 2) and (p mod 3 <> 0))

   .Println

end.

Интересные вопросы
Предмет: Математика, автор: Matvii228
Предмет: Алгебра, автор: kubahnazar520
Предмет: География, автор: alex190104
описать материк Австралия по плану :
1. определите географическое расположение материка
а) положение по отношению к экватору и нулевому меридиану
б) широту и долготу крайних точек
в) положение относительно других материков и океанов, островов, заливов, проливов
2. определите преобладающие формы рельефа( горы, равнины). на какой части материка находятся и в каком направлении протягиваются. найти высшие и низшие точки высот на материке.
3.определите положение в климатических поясах и общие особенности климата( средняя температура января и июля, господствующие ветра, количество осадков, их распределение по территориям и сезонам).
4. назвать крупные реки и озера.
5.определить особенности расположения природных зон, свойственные им типы почв, растительность и животный мир.
6. природные ресурсы материка.
7. перечислить крупнейшие страны материка.
8. особенности народов.
9. экологические проблемы материка.