1. Информатика
  2. Напишите программу, которая

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

hadisvv hadisvv    2   23.09.2019 01:50    1

Ответы
клубника25 клубника25  08.10.2020 11:09
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
samiraizashirin samiraizashirin  15.12.2020 17:29
Алг нач цел s k s : =0 нц для k от 1 до 10 s := s+ 7 кц вывод s кон Что будет напечатано в результате работы следующей программы которая находится выше....
Møŝķá56 Møŝķá56  15.12.2020 17:29
очень умоляю ребят я вас люблю вы моя выручка и в учёбе заранее огромное вам...
daryankaa1 daryankaa1  15.12.2020 17:29
Запиши верный ответ если дан алгоритм:a1:=4/(17x)a2:=al/xa3:=a2lxa4:=a3/xy:=a1+a4ответ (для переменной используй латинскую раскладку) ​Заранее...
серго220 серго220  15.12.2020 17:29
Нужно написать сообщение по информатике на тему: «Самое уязвимое программное обеспечение». за хороший ра развёрнутый ответ.​...
belovworms2003p0af24 belovworms2003p0af24  25.06.2019 23:50
Найти ошибки и исправить,и заполнить пропуски вычислить сумму цифр заданного k -значного числа var k : 1..4; n: double; begin writeln( введите количество цифр k: ); readln(k);...
друг32 друг32  25.06.2019 23:50
Нарисуйте граф системы «компьютер», содержащего следующие вершины: процессор, оперативная память, внешняя память, клавиатура, дисплей, принтер; а) линия связи обозначает...
сьдвщы сьдвщы  25.06.2019 23:50
Напишите назначение и страну у каждого сайта help.belhost.by index.all-hotels.in.ua acorda.kz britain.uz klassica.ru en.beijing2008.cn...
anastasiya2056 anastasiya2056  25.06.2019 23:50
Дано целое двузначное число м. разработайте схему алгоритма, который вычисляет сумму всех двузначных чисел, начиная с числа м. используйте цикл пока. желательно на языке...
Пот43 Пот43  30.06.2019 23:40
Производится одноканальная (моно) звукозапись с частотой дискретизации 128 гц. при записи использовались 64 уровня дискретизации. запись длится 6 минут 24 секунд, её...
mariella25 mariella25  17.04.2019 03:00
Гора Аконкагуа находится к северу (1) или к югу (2) от озера Титикака?...

Популярные вопросы