Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
дилирон1
18.03.2023 18:29 •
Информатика
Найти все трехзначные числа-палиндромы. с использованием repeat (обязательно)
Показать ответ
Ответ:
aminayahydinap00uha
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 оценок)
Ответ:
romanenkoanna66
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 оценок)
Популярные вопросы: Информатика
Djamkaa0325
09.02.2021 06:28
Микропроцессор дегеніміз -...
tamirisis7sk
27.08.2021 08:29
№5. Копируя или удаляя имеющиеся фрагменты текста, добавляя свои, сочините сказку или приключенческую историю, используя в качестве героев произведения понятия информатики...
Kakanya
19.03.2022 16:26
Продолжите предложение Многоуровневый список – это… . Выберите один ответ: a. перечень предметов, в котором каждый элемент имеет свой порядковый номер. b. перечень элементов,...
benten2434
12.02.2023 01:33
В маркированном списке используются… Выберите один или несколько ответов: a. цифры. b. небольшие графические изображения. c. буквы. d. символы....
FreonTime
12.12.2021 23:50
Для какого из чисел истинно высказывание: (число 60) и не (число чётное)? 1) 35 2) 72 3) 81 4) 28...
pminikrolik
23.02.2021 10:14
Нарисовать блок схему этой программы #include using std: : cout; using std: : cin; using std: : endl; int main() { int a[10] = { 5, 2, 8, 21, 17, 9, 0, 3, 1, 2 }; float mean...
Ma4oMatoy
22.12.2022 10:25
Ввести с клавиатуры массив из 5 элементов ,найти в среднее арифметическое всех отрицательных элементов массива....
eryana
25.02.2023 10:55
Решить на c++ вот зададча дана последовательность чисел, оканчивающаяся числом 1000. определите какое из чисел, оканчивающихся нулем, наибольшее в этой последовательности....
Lakers44
25.02.2023 10:55
Таблица содержит следующие данные об учениках школы: фамилия, возраст и рост ученика. сколько учеников могут заниматься в баскетбольной секции, если туда принимают детей с...
tatyana171283t
25.02.2023 10:55
Какими будет значение переменных j,k после выполнения условного оператора: if j k then j: =k-2 else k: =k-2 если значения исходных переменных равны: 1)j=3, k=5; 2)j=3, k=3;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.