Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Юлия34567
15.01.2023 14:23 •
Информатика
Найти симметричные натуральные числа из промежутка от а до в (а и в вводятся с клавы). паскаль
Показать ответ
Ответ:
Kristibabiba098
05.07.2020 11:18
var
a, b, i, j: integer;
l, l2: string;
begin
readln(a, b);
for i := a to b do
begin
l := i.ToString();
l2 := '';
for j := 1 to length(l) do
l2 := l[j] + l2;
if (l = l2) then writeln(l);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
noname0002
13.11.2021 22:38
Даны натуральные числа от 1 до 50. Найдите сумму чисел, делящихся на 5 или 7. C++...
стас482
28.07.2022 01:44
Сообщение, записанное буквами 16-символьного алфавита, содержит 832 символов. Какое количество информации оно несёт?...
ddasha681
28.11.2022 20:30
Составить программу для вычисления y=1/x на языке Паскаль...
Pol111111111663
26.02.2021 23:49
Al Працюємо самостійноВизнач, які з наведених речень є висловлюваннями, та встанови їх істинн1) Слоненя схоже на кенгуру. И2) їй сподобався крокодил.3) Вона любить...
krasorka
15.08.2020 09:33
Как компьютеры различаются по размерам и применения? ...
Gowaimargowa123
11.03.2020 07:24
сор по информатике ЗАДАНИЯ ДЛЯ СУММАТИВНОГО ОЦЕНИВАНИЯ ЗА 4 ЧЕТВЕРТЬ ПО ИНФОРМАТИКЕРаздел «Работа с текстовыми документами» 1 вариантКласс: 6 ФИО: Дата: Цель обучения:...
ArinaShakie10
13.08.2022 17:40
Информатика 8 класс, если можно то чем проще тем лучше...
Xxxmara
03.10.2021 06:39
Автомобиль движеться на повороте по кривой траектории радиусом 50м с постоянной скоростью 10 м/с.каково ускорение автомобиля?...
liteman1000ow7ldr
03.10.2021 06:39
Как называется сu(po3)2? это ортофосфат меди?...
shepa174
03.10.2021 06:39
Старший разряд числа 12388 и старший разряд числа 326...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, b, i, j: integer;
l, l2: string;
begin
readln(a, b);
for i := a to b do
begin
l := i.ToString();
l2 := '';
for j := 1 to length(l) do
l2 := l[j] + l2;
if (l = l2) then writeln(l);
end;
end.