Ответы на вопрос:
Uses crt; var a,h: longint; b: integer; begin clrscr; writeln ('введи число'); readln (a); h: =1; while a> 0 do begin b: =a mod 10; h: =h*100+b; a: =a div 10; end; a: =0; while h> 10 do begin b: =h mod 10; a: =a*10+b; h: =h div 10; end; writeln (a); readln; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
kuku133717.09.2020 05:49
-
MashaTears118.05.2022 14:35
-
Пельмешки1131.05.2022 07:22
-
bahahas17.02.2022 22:07
-
pOMOGITPLZ122.04.2020 18:21
-
BunraccoonXD17.04.2020 05:53
-
183629401.01.2022 12:31
-
superbogdanova13.10.2021 16:30
-
yuikire26.09.2021 20:41
-
Болыс11129.05.2022 17:55
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.