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

Question

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

KyroSC · Answer

begin Arr(1..ReadInteger( n: )).Count(x- (x mod 4=0) and (x mod 6 0)).Printend.Пример работы:...