Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
osipolara
05.04.2022 12:45 •
Информатика
Дан массив 18 натуральных чисел.напечатать все элементы массива,являющиеся трехзначными числами
Показать ответ
Ответ:
АnnaaaaA
07.10.2020 16:02
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(18,10,5000); a.Println;
a.Where(t->t.Between(100,999)).Println
end.
0,0
(0 оценок)
Ответ:
zarinazaac30
07.10.2020 16:02
Program n1;
var a: array[1..18] of integer;
i: integer;
begin
randomize;
for i:=1 to 18 do a[i]:=random(10000);
for i:=1 to 18 do if (a[i]>99) and (a[i]<1000) then write(a[i],' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
PoL811
13.05.2020 06:50
Написать программу решения уравнения ax3+bx=0 для произвольных a, b. ))...
anna200521
13.05.2020 06:50
Впаскале! №1 с клавиатуры вводятся 10 натуральных двузначных чисел. определить сколько среди них чисел, кратных 4; №2 с клавиатуры вводятся 10 натуральных двузначных чисел. определить...
MariyaSavinkova
13.05.2020 06:50
Какую информацию содержат запись и поле?...
nabiulinadasha
13.08.2020 08:47
Задан фрагмент текста. проверить, имеется ли в нем открывающих и закрывающих круглых скобок. рекомендации: должно существовать взаимно однозначное соответствие открывающих и закрывающих...
TRIPLEN
15.08.2021 14:18
Кому из великих людей, самому мудрому из царей Израильско-иудейского царства принадлежат эти слова: Венец стариков - сыновья сыновей, слава детей - родители их ? Выберите один ответ:...
Зууууум
15.08.2021 14:18
Көмектесіңдер тапсырма тірек сөздерге 5жай сөйлем құра тірек сөздер:Өлке,Жер,Атамекен ,Аспан,Ел,Өлке,Самал. берем ...
lyababaranik
15.08.2021 14:18
После окончания основной школы Вы сможете избрать один из путей продолжения образования: Переход в 10 класс средней школы с возможностью профильного обучения; Поступление в профессиональное...
SaLmOn4663
15.08.2021 14:18
Узындыгы 6см, ени 4см жане биктиги 5см параллепипедтин колеми кандай?...
Anny505
04.06.2022 01:18
Среди данных предложений найдите сложноподчинённое. Я отыскал в столе письма, которые брат писал матушке в течение всей жизни. Вся разница между умным и глупым в одном: первый всегда...
bebe13
02.05.2020 23:46
Найти сопротивление R1 а также токи I2 и I3 задание 6.2...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(18,10,5000); a.Println;
a.Where(t->t.Between(100,999)).Println
end.
var a: array[1..18] of integer;
i: integer;
begin
randomize;
for i:=1 to 18 do a[i]:=random(10000);
for i:=1 to 18 do if (a[i]>99) and (a[i]<1000) then write(a[i],' ');
end.