Question

Напишите программу, которая в последовательности натуральных чисел находит количество чисел которые делятся на первый элемент последовательности. Вход: Программа получает на вход кол-во чисел , а затем сами числа. Кол-во чисел не превышает 1000, а сами числа не превышают 30000 Выход: программа должна вывести одно число- количество чисел, которые делятся на первый элемент.

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadlnInteger;
  var p1:=ReadInteger;
  ReadSeqInteger(n-1).Where(t->t mod p1=0).Count.Println
end.

Пример
10
3 15 40 27 60 34 8 31 17 40
3

Answer 2

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

pythonCopy code
n = int(input()) # количество чисел
a = list(map(int, input().split())) # сама последовательность чисел

count = 0 # счетчик чисел, делящихся на первый элемент

for i in range(1, n):
    if a[i] % a[0] == 0:
        count += 1

print(count)

Сначала программа считывает количество чисел n и саму последовательность a. Затем программа проходит по всем числам, начиная со второго (range(1, n)), и проверяет, делится ли число на первый элемент a[0]. Если число делится на a[0], то счетчик count увеличивается на 1. В конце программа выводит значение счетчика count.