Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
neznaika168
20.02.2020 13:52 •
Информатика
Дано трёхзначное натуральное число. получить другое натуральное число, в котором порядок цифр изменён на противоположный.
Ответ:
rolleck
16.08.2020 20:20
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
var (s,d,e):=(n div 100, (n div 10) mod 10, n mod 10);
Writeln(100*e+10*d+s)
end.
Пример
319
913
0,0
(0 оценок)
Популярные вопросы: Информатика
makshardin17
17.11.2021 22:40
Как сделать из слова муха слово слон меняя только одну букву за раз...
Морожка
17.11.2021 22:40
Прилетел как-то к земной девушке, красавице писанной, ухажер с планеты double fingers и ну замуж ее звать и похваляться, что де и зарабатывает он 1100000 долларов в месяц, и...
valeriaasoskova
17.11.2021 22:40
Информационное сообщение объёмом 1 мбайт передается со скоростью 4 кбайт/с. определите время передачи информации в секундах. дано, решение с формулами...
novkov641800
17.11.2021 22:40
Прилетели теперь наши на далекую планету gamma rays. и разговорились с одним почтенным отцом семейства. много детей, рассказал он, у него – тридцать три сына и пятьдесят дочерей....
Апикун
18.12.2021 04:17
Определите значение переменной Х после выполнения алгоритма, заданного блок-схемой....
DarPlay70
02.02.2020 15:08
Исполнитель Шифровальщик из одной цепочки символов получает новую цепочку следующим образом: Если цепочка начинается с согласной буквы, Шифровальщик меняет местами первую и предпоследнюю...
maximfz
20.05.2020 05:25
Заменить repeat и until в этой программе: var x,y: real; begin; x: =5; repeat y: =4*x-5; writeln( if x= ,x, then y= ,y); x: =x+0.5; until x=10.5; end....
irinapak1985
02.01.2022 23:21
Умоляю вас отчень ! напишите программу на языкк с++ найти сумму целых не четных чисел от 1до 20...
MariaVay000
24.03.2023 21:35
В каком разделе меню окна программы Power Point находится команда Настройка анимации? 1.Показ слайдов 2. Формат 3. Файл 4. Вставка...
тата283
17.06.2020 01:39
Составьте программу по блок схеме...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
var (s,d,e):=(n div 100, (n div 10) mod 10, n mod 10);
Writeln(100*e+10*d+s)
end.
Пример
319
913