Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
evelenbar
08.12.2021 03:31 •
Информатика
Склавиатуры вводится целое число n> 0, а затем еще n целых чисел. подсчитайте, сколько среди них трехзначных чисел, кратных семи.
Показать ответ
Ответ:
asadbek7703
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 оценок)
Популярные вопросы: Информатика
aleksejgrunin0
27.12.2021 07:51
Выберите единичное имя из списка выберите один из 4 вариантов ответа: 1) театр 2) море 3) linux 4) вокзал...
юляФ1
18.03.2022 21:21
Вячейку введены символы=а1+б1 как excel воспримет эту информацию?...
20софа05
28.04.2022 13:02
Составить программу: даны стороны прямоугольного треугольника найти его площадь и периметр....
2polina21
13.02.2020 01:21
Укажите наименьшее четырёхзначное восьмеричное число, двоичная запись которого содержит 5 единиц. в ответе запишите только само восьмеричное число, основание системы...
АпаснаяЯ
21.12.2022 22:16
Решите по информатике в програме pascalabc.net найти 10 значений выражения 1/х для случайных х из интервала от -10 до 20...
Anhard23
31.10.2021 00:21
Решить на pascalabc.net в синтаксисе pascal abc. даны натуральные числа m и n. используя алгоритм евклида, найти наиболь-ший общий делитель чисел m и n. (алгоритм...
syedelifozq8ou
01.02.2021 14:56
Присвоение каждому знаку определенного кода фиксируется в соглашении, наpываемом: 1 электронной таблице 2 кодовой таблице 3 реестре windows 4 протоколом...
veronika1217
24.09.2021 01:05
Назовите 2 вида памяти компьютера: 1) полезная 2) внешняя 3)архивная 4) внутренняя 5) быстрая...
AbsoJl
02.12.2020 00:25
3.задано n натуральных чисел a1,a2,…,an ( ), каждое из которых находится в интервале от 1 до 10000. необходимо определить количество натуральных делителей произведения...
KasiaW
12.04.2020 02:51
Запиши число 14427 в развёрнутом виде, начиная со старшего разряда...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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