Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Пупырка521
02.01.2023 22:45 •
Информатика
Свопросом по языку программирования pascal вводится произвольная последовательность целых чисел . найти количество элементов меньших наперед заданного числа а.
Показать ответ
Ответ:
vika8914
07.10.2020 16:38
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ReadlnInteger('a =');
var s:= ReadlnString('Введите последовательность').ToIntegers;
Writeln(s.Where(t -> t < a).Count);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Mussa1
22.07.2021 16:55
Разворот последовательности Дана последовательность целых чисел, заканчивающаяся числом 0. Выведите эту последовательность в обратном порядке. При решении этой задачи нельзя...
SAIIIEK
08.04.2020 20:39
Решите ответ округлите до целых. скорость передачи данных через adsl-соединение равна 256000 бит/с. передача файла данное соединение заняла 14 секунд . определите размер файла...
vioren
08.02.2021 22:49
Правительства Алаш Орды в октябре 1917 года ...
Зина11111111
14.11.2020 19:39
Вот это продолжение ...
semakina97
14.11.2020 19:39
Які особливості будови скелета птаха забезпечують його існування у наземно-повітряному середовищі?...
54876
14.08.2021 16:19
Продам аккаунт в бравл старс звони или пиши смс нужны деньги...
rezkova
05.03.2021 02:45
Адиль решил провести опыт в домашних условиях. Он прилил к газированной минеральной воде немного известковой воды. При этом наблюдал помутнение раствора. а) Определите, какое...
Kjutf
28.05.2021 13:13
В столовую привезли вишневый и персиковый сок. Количество вишневого сока составляет mkr-7.png всего сока. Персикового сока привезли на 20 л больше, чем вишневого. Сколько...
Nemuverus
09.07.2020 15:15
Скласти протокол до твору Спілка рудих...
Gaky
23.01.2021 17:23
Алгебра 11 классВсё 3 задания с решением на листке ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ReadlnInteger('a =');
var s:= ReadlnString('Введите последовательность').ToIntegers;
Writeln(s.Where(t -> t < a).Count);
end.