Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
molinarudmanp01g00
21.03.2020 19:31 •
Информатика
Найти все трехзначные числа-палиндромы. с использованием repeat (обязательно)
Показать ответ
Ответ:
Varvaralikhtsr1
06.10.2020 23:43
Var i:integer;
begin
i :=100;
repeat
if (i mod 10 = i div 100) then
print(i);
i:=i+1;
until (i>999);
end.
0,0
(0 оценок)
Ответ:
ник230903
06.10.2020 23:43
Решение, с которого не придется перебирать 800 чисел подряд:
var
i, j : Integer;
begin
i := 1;
repeat
j := 0;
repeat
writeln(i, j, i);
j := j + 1;
until j = 9;
i := i + 1
until i = 9
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
вопрос210
06.01.2022 15:40
Составить таблицы истинности и логические схемы следующих логиче ских выражений...
Шаурма1111111
14.12.2021 22:17
Решите следующую задачу, составив двоичную матрицу...
Oliichka
14.12.2021 22:17
Дизайн вагоновВагоны новой кольцевой железной дороги было предложено расписать N дизайнерам. Каждый дизайнер выбирал для своей раскраски полосу длиной li, начинающуюся от начала...
saskam310
18.09.2021 09:35
Написать блок схему и программу используя программу For для вывода на экран чисел от 30 до 20Решите это очень...
Лиззка1904
08.06.2022 19:11
Надо в турбо паскале составить программу, в которой у пользователя запрашивают четырехзначное число, а затем выводят в строчку по порядку его цифры в обратной последовательности...
Дашута001
01.10.2020 15:39
Дан массив а, состоящий из 200 элементов. Заполнить его случайными числами в диапазоне от 10 до 35. Найти максимальный элемент. Вывести его. Посчитать, сколько раз повторяется...
KIRILLX228
04.02.2020 15:03
ПИТОН: Заполните массив случайными числами в интервале [0,5]. Определить, есть ли в нем элементы с одинаковыми значениями, стоящие рядом. Пример: Массив: 1 2 3 3 2 1 Есть: 3 Пример:...
vabyn
08.08.2022 13:48
В электронной таблице значение формулы =СУММ(D2:D3) равно 6. Чему равно значение ячейки D4, если значение формулы =СРЗНАЧ(D2:D4) равно 3?...
катя5080
08.08.2022 13:48
Дан прямоугольный массив A[1..N,1..M]. Получить линейный массив В, в котором будут храниться номера а тех столбцов матрицы А, в которых есть равные элементы.на языке Делфи...
RaSyL111
24.05.2021 10:22
решить через С++ Одномерный массив из 15 элементов задан случайным образом, подсчитать сумму элементов массива, больших своего номера....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
i :=100;
repeat
if (i mod 10 = i div 100) then
print(i);
i:=i+1;
until (i>999);
end.
var
i, j : Integer;
begin
i := 1;
repeat
j := 0;
repeat
writeln(i, j, i);
j := j + 1;
until j = 9;
i := i + 1
until i = 9
end.