Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
BovolskajLesj
01.12.2022 13:10 •
Информатика
Паскаль
среди 8 чисел, введённых с клавиатуры, выписать кратные a
Показать ответ
Ответ:
inikulin00864
10.10.2020 17:16
Const n=8;
var
b: array[1..n] of integer;
a,i: integer;
begin
readln(a);
for i:=1 to n do readln(b[i]);
for i:=1 to n do if b[i] mod a=0 then writeln(b[i]);
end.
если нужно без массива, напишите
0,0
(0 оценок)
Популярные вопросы: Информатика
89181790311
17.04.2023 18:37
Напишите программу на паскале, сумму кратных 6 в последовательности, тремя разными циклами ...
igorgame39
21.05.2021 12:15
На PYTHON: Составьте программу для нахождения суммы, разности, произведения, частного двух (необязательно целых) чисел. Предусмотрите чтобы в случае деления на 0, выводилось...
SSEMAA
05.02.2021 07:19
Одномерный массив из 7 элементов заполнить случайным образом числами от 1 до 15.преобразовать массив таким образом,чтобы каждому элементу присваивалось значение предыдущего,при...
СофияСерая
05.03.2022 14:21
«Роботы в мире технологий» реферат написать...
daria200205
14.09.2022 19:34
Перевод текста с английского языка на русский можно называть?...
anastasy7
23.07.2021 01:00
1. Ссылка на ячейку $A$1 при копировании формулы на один столбец правее будет иметь вид 1) $В$2 2)$A$2 3)$A$1 4)$В$1 2.После изменения исходных данных в электронной таблице...
Стася911
08.10.2021 16:50
Таблица: Указать строки и Столбцыэто как?...
ukrkaravan757
01.03.2020 00:21
На странице 30 строк 60 символов. ВСЕГО 4 странице. В 1 символе 8 бит. Найти объем в килобайтах...
elkasiv
19.03.2021 02:43
Putere a compan saiha a leonor eca ipodpetene intege Завдання3. Створіть новий файл Python та Нове вікно іззаголовком Вікно Python . Створіть нову кнопку тарозмістіть її...
zakharovserg20
28.02.2022 13:00
2 вопрос (вторая оценка): Выберите правильный порядок размещения источников: Периодическая печатьЗаконы РК Статистические данныеНормативные документыУчебники ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
b: array[1..n] of integer;
a,i: integer;
begin
readln(a);
for i:=1 to n do readln(b[i]);
for i:=1 to n do if b[i] mod a=0 then writeln(b[i]);
end.
если нужно без массива, напишите