Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
annadarbinyan1
02.08.2020 00:45 •
Информатика
От 1 до n вывести все числа, которые кратны 3
Ответ:
mrmistik41
04.10.2020 09:20
Var a:integer;
begin
for a:=n downto 1 do begin
if (a mod 3 = 0)
then writeln(a);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Svetik15102011
02.04.2022 16:18
Какое количество информации содержит один разряд шестнадцатеричного числа объясните...
Король234
02.04.2022 16:18
Какое значение будет выведено в результате исполнения алгоритма ? нач к: =2; к1: =1; с: =59 нц для i от 50 до 164 с: =с+к*i; k: =k+k1; k1: =-k1 кц выаод с кон ответы 1) 30762...
shaduraalya
17.07.2021 06:37
Дана матрица размером 7х7 элементов, случайным образом заполненная. просчитать сумму элементов диагонали ( i=n-j+1 ). определить количество элементов сумма / 3....
EHOT229
05.07.2021 02:39
Использовать подпрограммы (ввода, вывода, обрабатывающей части). даны 3 массива целых чисел: (4*5), (5*5), (5*4). вставить после каждого столбца, содержащего хотя бы один...
диана2470
19.09.2022 14:22
1 ДОЮ Домашняя работа:Найди сходства и отличия ссылок игиперссылок с диаграммы Венна.Диаграмма Веннаотличие общее отличие ...
marinazajcik0
07.08.2022 19:07
Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 640×256 и палитрой из 2 цветов....
romabryuxachev
28.11.2020 10:26
Нужна ваша ! 1.найдите количество положительных и отрицательных элементов в массиве а(10) 2.найдите в массиве сумму минимального и максимального в массиве а(10)...
рамика2
23.03.2020 10:30
Вопрос здесь. https://imgur.com/a/LpJQUyO...
Флэшик
17.11.2021 00:43
вызначце эпітэты параўнанні метафары увасабленні у Уцякла зіма ад вясны Рыгор Барадулін очень...
coolbembel
04.04.2021 12:57
Нервная система у головоногих моллюсков...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
for a:=n downto 1 do begin
if (a mod 3 = 0)
then writeln(a);
end;
end.