Дано двухзначное число. Получить число, образованное при перестановке цифр заданного числа - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.80/25:

@doker___ 0 / 0 / 0 Регистрация: 11.06.2013 Сообщений: 29

	Дано двухзначное число. Получить число, образованное при перестановке цифр заданного числа 12.06.2013, 09:32. Показов 4783. Ответов 1 Метки нет (Все метки) Дано двухзначное число. Получить число, образованное при перестановке цифр заданного числа. 0

Лучшие ответы (1)

Сообщение: #4708395

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

12.06.2013, 09:32

Ответы с готовыми решениями:

Дано целое двухзначное число a. Получить удвоенное значение наименьшего числа, которое можно получить из цифр заданного числа a
Дано целое двухзначное число a. Получить удвоенное значение наименьшего числа, которое можно получить из цифр заданного числа a. Входные...

Дано целое двухзначное число a. Получить наибольшее число, которое можно получить из цифр числа a
Дано целое двухзначное число a. Получить наибольшее число, которое можно получить из цифр числа a. Входные данные: Во входном потоке...

Дано четырехзначное число. Найти число, получаемое при перестановке цифр
Дано четырехзначное число. Найти число, получаемое при перестановке 1 и 4 цифр и 3 и 2. Помогите пожалуйста новичок в паскале.

ermolay

3451 / 2389 / 2135

Регистрация: 04.12.2011

Сообщений: 3,966

12.06.2013, 11:02

Сообщение было отмечено doker___ как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
var
  a,b: byte;
begin
  repeat
    write('Ââåäèòå ÷èñëî a (9<a<100): ');
    readln(a);
  until a in [10..99];
  b:=a div 10 + a mod 10 * 10;
  writeln(b);
end.

Добавлено через 1 минуту
подправил

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

12.06.2013, 11:02

Помогаю со студенческими работами здесь

Найти число, полученное при перестановке первой и второй цифр заданного числа
Помогите пожалуйста решить задачи: 3.Дано трехзначное число. Найти число, полученное при перестановке первой и второй цифр за-данного...

Дано трехзначное число. Вывести число, полученное при перестановке цифр сотен и десятков
Дана трех значное число.вывести число,полученное при перестановки цифр сотен и десятков исходного числа(например,123 перейти 213).

Определить двухзначное число, в котором число десятков соответствует первой цифре заданного числа, а число единиц-последней
2.Дано целое положительное четырёхзначное число. Напишите программу, позволяющую определить двухзначное число, в котором число десятков...

Вывести число, полученное при перестановке цифр исходного числа
Условие задачи: Дано двух значное число. Вывести число, полученное при перестановке цифр исходного числа. Вот что у меня получилось:var...

Вывести число, полученное при перестановке цифр исходного числа
2. Дано двузначное число. Вывести число, полученное при перестановке цифр исходного числа Заранее спасибо!!!

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

Наверх