Напишите программы в pascal: 1. ввести целое число и определить, верно ли, что все его цифры расположены в порядке 2. ввести целое число и «перевернуть» его, так чтобы первая цифра стала последней и т.д.
134
497
Ответы на вопрос:
Var a,b,k,n,m: integer; begin write('введите целое число: '); readln(a); b: =a; n: =0; k: =0; while b< > 0 do begin n: =n+1; b: =b div 10; end; m: =a mod 10; for n: = 1 to n-1 do begin a: =a div 10; if (m > a mod 10) then begin k: =k+1; m: =a mod 10; end; end; if k = n then write('верно') else write('не верно') end. var a: integer; begin write('введите целое число: '); readln(a); while a< > 0 do begin write(a mod 10); a: =a div 10 end; end.
//pascalabc.net 3.2 {1} begin var n: =readstring('число: '); var b: =true; for var i: =1 to length(n)-1 do if n[i]> n[i+1] then b: =false; write (b? 'да': 'нет') end. {2} begin write (readstring('число: ').inverse) end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
света94024.09.2021 14:38
-
Сонякака33209.02.2023 06:27
-
yakubovmalik06.01.2020 05:59
-
ksenkalow4nhp12.01.2023 11:07
-
egor2002browhnq916.07.2022 21:18
-
sanfirovngmail16.11.2020 10:14
-
polina134712.12.2020 19:02
-
lhe18.10.2021 22:33
-
Swerri15.05.2022 13:07
-
byrdo9811.06.2020 17:19
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.