Question

Дана последовательность чисел, заканчивающаяся нулем. Определить количество чисел не оканчивающихся на 2 и кратных 3.
Прошу расписать всё подробно и понятно в Pascal.​

Answer 1

===== PascalABC.NET =====

begin

 ReadSeqIntegerWhile(p -> p <> 0).  // читать последовательность

   Where(p -> (p mod 3 = 0) and (Abs(p) mod 10 <> 2)). // условие отбора

   Count.  // посчитать, сколько отобралось

   Println  // вывести результат

end.