Ответы на вопрос:
var c, f, first, count: integer; begin write('c = '); readln(c); f : = c; while (f div 10 > 0) do begin first : = f div 10; count : = 1; while (first div 10 > 0) do begin first : = first div 10; inc(count); end; if first < > f mod 10 then begin writeln('no'); readln; exit; end; while count > 0 do begin first : = first * 10; dec(count); end; f : = f - first; f : = f div 10; end; writeln('changeling'); readln; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Кеса118826.07.2022 14:36
-
en22813.02.2021 11:57
-
Vanik2001127.03.2021 11:29
-
yuliyanefedova26.06.2021 10:19
-
Iiwang666606.01.2023 17:21
-
VernerIgor25.05.2021 04:52
-
Победитель1728.07.2020 19:59
-
VIP16119.06.2020 23:29
-
figakuvesi12.06.2023 09:41
-
tyankitty14.11.2022 20:29
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.