Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Muminat20022005
03.12.2022 17:43 •
Информатика
Написать программу в паскале: дано трехзначное число. найти число, полученное перестановкой первой и третьей цифры заданного числа.
Показать ответ
Ответ:
olenkakireeva1
01.10.2020 15:56
Var a,b,c,n:integer;beginreadln(n);{находим 1 цифру}a:=n mod 10;b:=n div 10 mod 10 ;c:= n div 100;n:=100*a + 10*b + c;writeln(n);end.
0,0
(0 оценок)
Ответ:
yulis1929
01.10.2020 15:56
Другой
var a,i:longint;
begin
readln(a);
for i:=1 to 3 do
begin
write(a mod 10);
a:=a div 10;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
slaadkoo
19.07.2021 04:48
Внекотором каталоге хранился файл том 1, имевший полное имя d: век\том 1. пользователь, находившийся в этом каталоге, поднялся на один уровень вверх, создал подкаталог шолохов и...
Blink11
19.07.2021 04:48
Электронный дневник; cd с мультимедийной энциклопедией; sim карта; вода, текущая из крана; напиток в стакане....
Matvey1678
18.03.2020 07:24
Документ это..?А) носитель информацииВ) материальный носительС) звуковой файлD) текстовый файл...
здрасти2003
17.02.2022 04:00
Определи режим блока «Переменные» при выводе значения гироскопического датчика, записанного в переменную , на монитор. # # «Чтение» - «Число» «Чтение» - «Текст» «Запись» - «Текст»...
Vitadem1
28.09.2020 16:25
Напишите ответ никак не могу решить...
Mia112
12.04.2023 05:15
Доброе утро Python. Тема Циклы. С циклов, из значков @ нужно отобразить на экране фигуру песочные часы в точности как на рисунке:...
Makc457214
27.03.2021 09:40
Питон Условие В классе учится n учеников. Известен рост каждого из них в сантиметрах. Рост мальчиков по условию задан отрицательными числами. Определите средний рост мальчиков и...
IIIayni
24.04.2022 01:40
Выпиши в один столбик правильные имена файлов, а во второй правильные имена каталогов: письмо.18, letter.txt, winword, письмо.doc, школа? 234, мои документы, роза.bmp, crop12.exe,...
aruzhan152
24.04.2022 01:40
Какие бывают расширения у: 1. исполняемых программ. 2. текстовых. 3. графических. 4. звуковых. 5. видио....
lyisa
09.05.2021 02:00
по данному графику В каком промежутки времени равнодействующая из всех сил действующая на тело равна нулю ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,i:longint;
begin
readln(a);
for i:=1 to 3 do
begin
write(a mod 10);
a:=a div 10;
end;
end.