Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Theyom47
04.04.2020 23:45 •
Информатика
Склавиатуры вводится целое число n> 0, а затем еще n целых чисел. подсчитайте, сколько среди них трехзначных чисел, кратных семи.
Показать ответ
Ответ:
SofiaAM
07.10.2020 07:51
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
Writeln(ReadSeqInteger(n).Where(t->t.Between(100,999) and (t mod 7=0)).Count)
end.
Пример
5
77 -77 777 700 7777
2
0,0
(0 оценок)
Популярные вопросы: Информатика
Jfjgfiiffifi
14.03.2023 12:47
Якій події відповідає даний опис натиснення будь-якої клавіші наклавіатурі 1Close2Mouse Move3KeyPress4Click...
nicitama228800
12.03.2022 05:10
1 выбери, правильный ответ. трекбол является устройством информации. 2 выбери из списка правильный ответ и впиши или скопируй в окошко для ответа. (цифровой фотоаппарат, трекбол,...
jdjsjsjsj
04.11.2022 18:32
Рассмотреть изображение предоставленная ниже опишите два последствия нарушения правила техники безопасности предоставленные на рисунке один рисунок мальчик закрыл пальцем в глаз...
смурфик15
05.04.2021 08:20
1. Дополни предложение словами для вставки. а) Инструмент Оглавлениепозволяет вставить в документ оглавление, которое соберет в единуютаблицуна всев документе. б) Обычные иконцевые...
maxirufer1
02.08.2022 21:46
Укажи, какому информационному действию соответствует нахождение корней уравнения. хранение обработка передача сбор представление ↘ сообщения ↗...
Эндирионэля
09.12.2021 03:41
Укажите форму записи алгоритма «Посадка дерева» 1. взять лопату и саженец 2.выкопать ямку 3.посадить саженец в ямку 4.взять лейку с водой и полить саженец 5.поставить лопату и лейку...
energy525
06.02.2022 04:31
Составить алгоритм 1. две точки на плоскости заданы своим координатами. определите расстояние между ними 2. вводится натуральное число. напечатать последнюю цифру числа. 3. две...
Kroo66944
21.06.2022 19:30
Составить программу перевода информационной ленты из начального состояния в конечное. положение каретки выделено. работу машины представить в виде таблицы. (машина поста) 1111 1...
123291Duck
22.01.2021 19:08
Напишите мини-эссе по теме Ключом ко всякой науке является вопросительный знак (О.де Бальзак) В подтверждение своего мнения приведитеапгументы и примеры нужено . ...
maksburyas
28.08.2022 12:35
Характеристика Василя Байлема. Твір джури козака швайки...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
Writeln(ReadSeqInteger(n).Where(t->t.Between(100,999) and (t mod 7=0)).Count)
end.
Пример
5
77 -77 777 700 7777
2