Напишите программу, которая: а) определяет, есть ли среди цифр заданного целого трехзначного числа одинаковые; б) явл. ли число "перевертышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
208
234
Ответы на вопрос:
А) program cifr; uses crt; var n,l: integer; s: string; begin read(n); str(n,s); l: =length(s); if (s[1]< > s[2]) and (s[2]< > s[3]) and (s[1]< > s[3]) then begin writeln('одинаковых цифр нет') end else writeln('одинаковые цифры присутствуют'); end. б) program stroke; uses crt; var s: string; n,i,j,l: integer; begin readln(n); str(n,s); l: =length(s); j: =0; for i : = 1 to l div 2 do begin if s[i]=s[length(s)-i+1] then j: =1 end; if j=1 then writeln('да, число является палиндромом') else writeln('нет, число не является палиндромом'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
polinaandreeva1025.01.2022 12:50
-
djgas1017.12.2020 23:48
-
Still0604.11.2022 09:05
-
qvr3k30.07.2021 08:04
-
AliAlinka200603.02.2021 05:44
-
Tyshkanchik22807.12.2022 07:43
-
kseniya127616.01.2023 13:26
-
1o10019soos18.04.2021 22:23
-
Sashok125253503.06.2020 20:15
-
sapogidarom27.01.2022 01:21
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.