Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Nikito23
01.04.2022 12:38 •
Информатика
Составьте программу в pascal abc которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150. заранее
Показать ответ
Ответ:
kattun
12.07.2020 08:17
Program summa;
uses crt;
var
I:integer;
begin
summ:=0;
for I:=2 to 150 do begin
if ((I mod 2 = 0) and (I mod 13 = 0)) then writeln (I) end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
bulkin12
13.01.2023 17:26
4. Двоичный код 1111 0001 1101 0000 1111 0001 1001 1110 1101 0000 содержитБайта или бита...
veraruu
18.03.2020 08:37
Составь алгоритм защиты от вирусов. проверка антивирусной программой установка антивируса очистка файлов от вируса обнаружение вируса...
серик26
08.01.2021 14:53
написать программы на ассемблере F=b-d|c⨁06h и F=(d-b⨁c+05h)/4...
Женя11134
05.01.2023 01:56
На сколько видов делятся вирусы в зависимости от среды обитания?...
wolk2289
05.03.2020 17:08
Сколько байтов в слове универсальный?...
nikitaaleksandrov
29.07.2021 04:36
Вычислите периметр и площадь прямоугольного треугольника, если известны все стороны Записать блок-схему алгоритма....
marinaerm
14.08.2021 04:30
Расшифруй слово ЕЛЖЗСУПГЩЛВ...
lukash231082
30.05.2022 13:24
Наименьшая еденица информация это...
jeon200
26.12.2022 06:18
В течение 5 мин со скоростью 1 Кб/с может быть передано: 300 Мбайт 300 Кбайт 2 457 600 байт 307 200 бит...
mo14yn
03.08.2020 08:55
Получена информация объемом 8 бит какого размера информации можно составить из этих данных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var
I:integer;
begin
summ:=0;
for I:=2 to 150 do begin
if ((I mod 2 = 0) and (I mod 13 = 0)) then writeln (I) end;
end.