Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4, но не кратных 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4 и не кратное 7. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 4, но не кратных 7. Пример работы программы:Входные данные Выходные данные4162826242

Answer 1

var n,i,a,k: integer;  

begin    

readln(n);    

k := 0;    

for i := 1 to n do    

begin  

  readln(a);  

  if (a mod 4 = 0) and (a mod 7 <> 0) then k:=k+1;    

end;    

writeln(k)  

end;

Answer 2

## ReadSeqInteger(ReadInteger).Where(t -> t.Divs(4) and t.NotDivs(7)).Count.Print

Answer 3

Ответ:

Вот один из возможных вариантов программы, которая решает задачу:

# Вводим количество чисел в последовательности
n = int(input())

# Создаем счетчик для чисел, кратных 4, но не кратных 7
count = 0

# Повторяем n раз
for i in range(n):
    # Вводим очередное число
    x = int(input())
    # Проверяем, кратно ли оно 4 и не кратно ли 7
    if x % 4 == 0 and x % 7 != 0:
        # Увеличиваем счетчик на 1
        count += 1

# Выводим результат
print(count)

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

Входные данные

4
16
28
26
24

Выходные данные

2