Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
zlodej
18.02.2020 10:50 •
Информатика
Турбо паскаль среди всех трехзначных чисел найти те у которых первая цифра равна трем.
Показать ответ
Ответ:
antimonovaanas
21.06.2020 23:22
Var i:integer;
begin
for i=100 to 999 do if i div 100=3 then writeln(i,' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
arustamianan
30.03.2022 20:02
Бабушка Димы решила приготовить несколько салатов. Стоимость ингредиентов для них представлена в таблице. Сколько стоит салат Ореховый?...
aizazaliyaF
24.11.2021 01:33
Обсудите в паре и расскажите, в каких областях исполь- Парная работазуются роботы.?2?22 СЧРОНО...
агаг1
23.06.2021 02:20
На одной улице стоят в ряд четыре дома, в которых живут четыре человека: павел, антон, роман и иван. известно, что каждый из них владеет ровно одной из следующих профессий: учитель,...
maivina7777777
23.06.2021 02:20
)обьем 1)магнитной памяти(магнитная лента,дискета,жесткий диск) 2)оптическая память (cd, dvd, r ,rom, rw) 3)электронная память( usb cart readers, карты памяти, flash drive usb накопители)...
ailchencko2010
23.08.2021 10:48
По по переменным у(номер года) m(номер месяца), в(номер дня), определить правильная эта дата или нет . если правильная то напечатать дату следующего дня. в паскале с учетом высокосного...
Lehanbratkov
30.09.2022 08:22
Выполнить сжатие информации методом RLE Выполнить вручную кодирование сообщения методом RLE. В качестве исходной фразы взять текст из таблицы. С таблицы CP-1251 перевести символы...
ДОМАШКАФИЗИКА
26.07.2020 18:32
Написать ответ и подробно разобрать решение, в том числе для подобных заданий var a,b,t,M,R: longint;function F(x:longint):longint;begin if (x div 4 =21-x div 4) then F:= x div 4...
missisleos
03.04.2020 14:38
Дано множество D={7,13,25,34,101,112}. Какие из приведенных множеств являются подмножествами множества D а) {1,7,13}; б) {0,1,12}; в) {25, 112, 34}; г) {a, b, c, n}; д) {7,13,25,34,101,112}....
Azdes
20.01.2021 16:07
Вариант 11 1. Задать файл из вещественных чисел. Найти минимальный элемент файла. 2. Увеличить на 7 каждый элемент файла, который меньше числа 7. 3. Найти произведение всех положительных...
lacosterom
30.03.2023 04:37
Для проведения эксперимента выбраны 5 районов Московской области. Известны засеваемые площади и средняя урожайность по району. Название района Площадь посева (га) Средняя урожайность...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
for i=100 to 999 do if i div 100=3 then writeln(i,' ');
end.