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

Question

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

Comments

ну или на крайний случай формулу...

---

программу

---

Вам чисто формулу или программу на каком-либо языке?

Answer 1

Ответ:

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

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