Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
TastyDonut
27.06.2020 12:58 •
Информатика
Введите с клавиатуры 10 натуральных чисел. введите на экран количество двузначных чисел.
Показать ответ
Ответ:
Вопросик3432
07.10.2020 06:31
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Кол-во двухзначных чисел равно ',
ReadSeqInteger('Введите 10 натуральных чисел:',10)
.Where(t->Abs(t).Between(10,99)).Count)
end.
Пример
Введите 10 натуральных чисел: 356 0 16 -3523 -62 35 123 4 -2 131
Кол-во двухзначных чисел равно 3
0,0
(0 оценок)
Популярные вопросы: Информатика
Glitchyyy
07.07.2020 04:26
Действие с информацией в результате которого мы получаем информацию ?...
lcjewfyjozo075
29.11.2020 14:14
Блок питания современного компьютера потребляет 350 Ватт электрической энергии. Сколько нужно будет заплатить за электричество потребляемое компьютером в месяц,...
shils
10.06.2020 12:31
Мне задали по информатике создать свой алфавит а воаброжение у меня 0 алфавит должен состоять из 32 букв...
ssdjpiffi
10.08.2021 16:22
Информатика значение переменной х находится в ячейке а1, значение переменной у-в ячейке а2, значение переменной z-в ячейке а3. запишите формулы для вычисления в...
Maximus20000
19.12.2022 15:39
Перевести числа 999 и 739в восьмиричную систему счисления ! )...
natalia1676
21.11.2022 04:18
Дано натуральное число больше либо равно нулю если не отрицательное то вычесть 50 иначе вычесть 100...
Arsen2045
03.03.2023 23:59
Запишите полное имя каталога, из которого пользователь начал перемещение, если, перемещаясь из одного каталога в другой, он последовательно посетил каталоги doc,...
ARTIKSTUR
14.01.2020 03:05
S: =интерфейс 1)сени 2)тёрн 3)иней 4)фит 5)тире 6)сефс 7)рейс 8)тир 9)рис 10)риф 11)сет 12)интерес 13)нерест 14)трение из слова интерфейс должны получиться такие...
vikhas123
06.04.2023 04:01
Спростіть вираз b+4c/5(b-c) - b-4c/3(b-c)...
jullii55
06.04.2023 04:01
Вмастерской работают директор, три мастера и два ученика. оклад директора 40000 рублей в месяц, мастера –30000 рублей в месяц, ученика –15000 рублей в месяц. найдите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Кол-во двухзначных чисел равно ',
ReadSeqInteger('Введите 10 натуральных чисел:',10)
.Where(t->Abs(t).Between(10,99)).Count)
end.
Пример
Введите 10 натуральных чисел: 356 0 16 -3523 -62 35 123 4 -2 131
Кол-во двухзначных чисел равно 3