Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Dangerous0
19.05.2023 01:12 •
Информатика
Решить в паскале,по информатике типа integer. дано двузначное число.вывести число,полученное при перестановке цифр исходного числа. возьмем к примеру число 35 нужно получить 53,я не понимаю как решить,.
Ответ:
Буууууууууууууурито
03.10.2020 01:59
Program name;
var a,c:integer;
begin
read(a);
repeat
begin
a:=a div 10;
c:=c*10+(a mod 10);
end;
until c<10;
writeln(c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Confident23
27.04.2022 17:27
ФИЗИКА 3 задачиДАЮ 25 Б1)Два одинаковых небольших одноименно заряженных шарика радиусом 1см, массой 10 г и зарядом 4*10-6 Кл. подвешены в одной точке на двух нитях длиной...
смерть75
12.09.2020 21:20
На Python. Создать программу, которая будет высчитывать корень наименьшего из 3 вводимых чисел, вводимых с клавиатуры, возводить в степень получившегося ответа от корня...
89243919567
28.07.2020 08:17
Что делает следующая программа? Какой ответ она выдаст при введении чисел 3 и 24? var a,b,s,k:integer; begin readln(a); readln(b); S:=a; while s k:=k+1; s:=s+a; end; writeln(k);...
DarkOP
05.09.2020 14:45
Текстовые и графические редакторы относятся к Системам программирования системному программному обеспечению прикладномв программному обеспечинью...
Bellatrisa
01.04.2021 23:04
Основные понятия алгебры логики...
asflower
10.05.2021 17:11
Вычислить сумму 1/3+1/5+1/8+1/13 в delphi...
AmalOmon
22.01.2023 17:08
Морфологический разбор слов мы с петей решили заняться выполнением...
aizazaliyaF
22.01.2023 17:08
На строительную площадку одну тонну песка для изготовления раствора рабочие взяли 4 раза по 25 кг песка а затем еще три раза по 35 кг сколько песка осталось на площадке...
Саша5841
22.01.2023 17:08
На рисунках представлены изображения животных которые обитают в указанных на страничке 45 заповедниках запиши названия этих животных в строке ответа запиши название животного...
Artem20032003
22.01.2023 17:08
4292 -429* поставьте вместо * число чтобы неравенство было верным....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a,c:integer;
begin
read(a);
repeat
begin
a:=a div 10;
c:=c*10+(a mod 10);
end;
until c<10;
writeln(c);
end.