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

Конечно! Давай разберём задачу пошагово и приведём полный рабочий код на Pascal.

Условие: есть двузначное число, нужно переставить его цифры и вывести новое число.

Например, если число 47, после перестановки цифр получится 74.

Алгоритм решения:

1. Ввести двузначное число n.

2. Получить десятки: tens := n div 10.

3. Получить единицы: units := n mod 10.

4. Сформировать новое число с переставленными цифрами: reversed := units * 10 + tens.

5. Вывести результат.

Полный код на Pascal

pascal
program ReverseTwoDigitNumber;

uses crt;

var
  n, tens, units, reversed: integer;

begin
  clrscr;
  writeln('Введите двузначное число:');
  readln(n);

  { Проверяем, что число действительно двузначное }
  if (n < 10) or (n > 99) then
  begin
    writeln('Ошибка: число должно быть двузначным.');
  end
  else
  begin
    tens := n div 10;    { Получаем десятки }
    units := n mod 10;   { Получаем единицы }

    reversed := units * 10 + tens;  { Формируем новое число }

    writeln('Число с переставленными цифрами: ', reversed);
  end;

  readln;
end.

Как это работает:

• div — целочисленное деление, даёт только целую часть (десятки).

• mod — остаток от деления, даёт последнюю цифру (единицы).

• units * 10 + tens — переставляем цифры, чтобы единицы стали десятками, а десятки — единицами.

• Программа проверяет, что введено именно двузначное число, иначе выдаёт сообщение об ошибке.

Если хочешь, я могу показать ещё более короткий вариант, без проверки и с минимальным кодом, который сразу выводит переставленное число.

Хочешь такой вариант?