Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
alina28042002
17.04.2021 07:42 •
Информатика
Заполнить массив (с клавиатуры) и вывести его на экран м[1..9] числами 3,4,7,9,19,23,24,27,39. вывести числа, кратные 3
Показать ответ
Ответ:
nasty2204
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 оценок)
Популярные вопросы: Информатика
veronikarub
22.09.2021 00:23
Сколько видеопамяти в Кбайтах нужно для работы монитора в режиме 640*256 и палитрой из 8 цветов?...
Оля0901
18.12.2021 10:02
Написать программу, которая запрашивает: «введите скорость ветра (в м/сек)». при скорости ветра, большей или равной 20 м/сек, программа сообщает: «ветер слабый»....
valeriyanikiti
10.02.2020 06:11
Попугай научился выдергивать у деда волосы начав с одного волоса с каждым днем он увеличивает порцию вдвое. за какое время дед станет лысым ? ответ. программа алго...
Arthurkaa
27.04.2023 05:46
Берілген тақырып бойынша 3 слайдтан тұратын презентация дайындап жібер Презентацияның тақырыбы Презентация слайдтарының тақырыптарыPython программалау тілі - Python...
liza770
17.12.2022 19:36
С++ Ввести фразу. Разработать функции, одна из которых разбиваетданную строку на предложения, вторая - находит в ней слова, начинающиесяс заглавных букв. Фраза: Our...
Son0905
06.06.2023 04:56
Вес одного символа алфавита равен 4 битам. сколько символов в алфавите?...
1Harius1
06.06.2023 04:56
Какой буквой обозначается размер файла...
Lesya1704
06.06.2023 04:56
Файл размером 8 кбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. определите размер файла (в байтах), который можно передать за то же время...
givlinkovpaschozszti
03.09.2021 17:26
Все кроме работаем в парах...
иска4578
24.06.2021 00:43
Окружающий мир, 4 класс. тема: какие растения растут в лугу . 1. сравни условия жизни в сосновом, еловом и лиственном лесах. 2. какие растения там растут? 3. примеры...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.