С клавиатуры вводится целое число Namp;gt;0, а затем еще N целых

С клавиатуры вводится целое число Ngt;0, а потом еще N целых чисел. Подсчитайте, сколько среди них трехзначных чисел, кратных 7.

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var n:=ReadInteger;
  Writeln(ReadSeqInteger(n).Where(t-gt;t.Between(100,999) and (t mod 7=0)).Count)
end.

Пример
5
77 -77 777 700 7777
2
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт