Question

Определить количество чисел кратных 4, но не кратных 6 в промежутке от 1 до n.

Answer 1

Ответ:

• begin
• Arr(1..ReadInteger('n:')).Count(x->(x mod 4=0) and (x mod 6<>0)).Print
• end.

Пример работы: