Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Gfykfyj
09.12.2021 08:39 •
Информатика
Заполнить массив (с клавиатуры) и вывести его на экран м[1..9] числами 3,4,7,9,19,23,24,27,39. вывести числа, кратные 3
Показать ответ
Ответ:
Igor599
16.07.2020 21:53
Var i: integer;
m: array[1..9] of integer;
begin
for i := 1 to 9 do
readln(m[i]);
for i := 1 to 9 do
if(m[i] mod 3 = 0) then write(m[i]:3);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
krasivak
30.01.2022 07:20
Мой ноутбук aser aspire 5750g после 5-10 минут перегревается,игры начинают сильно лагать.норма ли это? (нужно купить систему охлаждения)или стоит отнести его в сервисный...
agarkovr83
30.01.2022 07:20
Вывести на экран в интервале от а до 6 все числа кратные 5...
Лераuse
30.01.2022 07:20
Срефератом на тему ; компьютер в нашей !...
alleksees
20.03.2020 01:19
Исполнитель вычислитель умеет выполнять только две команды: умножить на2 и прибавить 1.придумайте для него наиболее короткий план получения из 0 числа 50...
Зууууум
20.03.2020 01:19
Дано число a 0. вывести наибольшее из чисел k, для которых сумма 1+1/2++1/k...
XxXRePlayXxX
07.02.2022 03:43
Вгороде живут 5 друзей: иванов,петров,сидоров,гришин,алексеев.проффессии у них разные- один из них- маляр,второй- мельник,3- плотник,4-почтальон,5-парикмахер.петров и гришин...
MeucaH123aksi
11.01.2023 19:34
Составьте программу и запишите на одном из языков программирования . заданы три числа a,b,c.если с-нечетное положительное число ,то вывести на экран сумму чисел а и в,иначе...
19zm19zm
11.01.2023 19:34
Что такое величины ? операции над величинами....
ахпхпха
01.05.2023 05:13
1. в электронных таблицах выделена группа ячеек а1: в3. сколько ячеек входит в этот диапазон? 1) 6 2) 5 3) 4 4) 3...
костелои
01.05.2023 05:13
Укажите неправильную формулу: 1) а2+в4 2) =а1/с453 3) =с245*м67 4) =о89-к89...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
m: array[1..9] of integer;
begin
for i := 1 to 9 do
readln(m[i]);
for i := 1 to 9 do
if(m[i] mod 3 = 0) then write(m[i]:3);
end.