Дана последовательность чисел, заканчивающаяся нулем. Определить количество чисел не оканчивающихся на 2 и кратных 3.
Прошу расписать всё подробно и понятно в Pascal.
Прошу расписать всё подробно и понятно в Pascal.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0). // читать последовательность
Where(p -> (p mod 3 = 0) and (Abs(p) mod 10 <> 2)). // условие отбора
Count. // посчитать, сколько отобралось
Println // вывести результат
end.