Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
Ангелюся10
26.06.2019 01:10 •
Информатика
Программу на pascal. напишите условие выбора чисел больших 100 и кратных 3
Показать ответ
Ответ:
Ааапллортдопсмтдд
21.07.2020 00:00
Var a,n:integer;
beginwriteln('введите число больше 100 до которого проверять');
readln(n);
for a:=n downto 100 do begin
if (a mod 3 = 0) then writeln(a);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ilyavasyukov228
02.02.2022 01:54
Введите предложенный текст...
dilaratristarimir
02.02.2022 01:55
Напишите письмо другу о том как прочитать данные из файла...
Koketka2506
02.02.2022 01:55
ДАМ 15 Б Определи результат выполнения арифметического выражения. import math x, y=divmod(17, 3) pow(x, y) 29 28 27 25 Назад Проверить...
nekit3221
02.02.2022 02:02
Программирование алгоритмов ветвления. Урок 2 Каково значение следующего выражения: a + ( x if 123 .isdigit() else y ) + b abx axb ab axyb ax...
Julia77707
18.02.2020 01:12
Знаю что во не по теме этого приложения, но я хочю купить видеокарту для компьютера и незнаю как её выбрать. Да и вообще после покупки её нужно поставить в слот или ещё что- нибудь?!?...
катяkfrr
18.02.2020 01:12
Нужно письменно обьяснить все действия задания задания на ПК....
davszbsk
18.02.2020 01:16
Большая чувствительность к физическому воздействию является недостатком или преимушеством электроной книги...
Vedernikovred
14.04.2021 09:53
Разгадай ребус. запишите ответы в рабочую тетрадь....
Kotnakompe
27.10.2020 14:47
1. Соотнеси виды информации Поформе представленияЗвуковаяинформацияВидеоннформацияТекстоваяинформацияГрафическаяинформацияЧисловаяинформация...
Настя456598
27.10.2020 14:47
В ячейке D3 записана формула = B3 * ($ C $ 2 + D2). Если мы копируем формулу в ячейку D4, почему в формуле происходят изменения?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
beginwriteln('введите число больше 100 до которого проверять');
readln(n);
for a:=n downto 100 do begin
if (a mod 3 = 0) then writeln(a);
end;
end.