Назовем билет с шестизначным номером красивым, если его номер одинаково читается с право на лева и с лева на право в промежутке 189980 до 205505
121
322
Ответы на вопрос:
Program zadacha; var a,a1,a2,a3,a4,a5,a6: integer; beginreadln (a); if (a< 189980) or (a> 205505)then writeln ('введите число не меньше 189980 и не превышающее 205505'); a1: =a mod 10; a2: =a mod 100 div 10; a3: =a mod 1000 div 100; a4: =a mod 10000 div 1000; a5: =a mod 100000 div 10000; a6: =a div 100000; if (a1=a6) and (a2=a5) and (a3=a4)then writeln ('счастливое')else writeln ('несчастивое'); end.
Var s: string; i: longint; t: boolean; begin read(s); t: =false; for i: =1 to length(s)-1 do if s[i]=s[i+1] then t: =true; if t then writeln('yes') else writeln('no'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
vikysikrusinova29.06.2022 17:17
-
Anniikko17.07.2022 17:19
-
А00000а16.09.2020 04:09
-
EricKornet12.02.2023 05:34
-
Yuliaddd30.05.2023 21:33
-
Ardashelovna30.05.2020 19:36
-
Эля5432104.09.2021 01:12
-
HellyHopta16.11.2021 17:07
-
alenavasipenok26.01.2022 05:00
-
LenaMatveyeva208.04.2023 17:12
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.