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

Вот пример программы на языке Паскаль, которая для произвольного трехзначного числа создает и выводит все возможные числа, образованные перестановкой его цифр.

pascal
program PermuteDigits;
var
  num, hundreds, tens, units: integer;
begin
  writeln('Введите трехзначное число:');
  readln(num);
  { Проверка на корректность введенного числа }
  if (num < 100) or (num > 999) then
  begin
    writeln('Ошибка: число должно быть трехзначным.');
    exit;
  end;
  { Извлечение цифр числа }
  hundreds := num div 100;       { Сотни }
  tens := (num div 10) mod 10;   { Десятки }
  units := num mod 10;           { Единицы }
  writeln('Все возможные числа, образованные перестановкой цифр:');
  
  { Перестановка 1: abc }
  writeln(hundreds * 100 + tens * 10 + units);
  { Перестановка 2: acb }
  writeln(hundreds * 100 + units * 10 + tens);
  { Перестановка 3: bac }
  writeln(tens * 100 + hundreds * 10 + units);
  { Перестановка 4: bca }
  writeln(tens * 100 + units * 10 + hundreds);
  { Перестановка 5: cab }
  writeln(units * 100 + hundreds * 10 + tens);
  { Перестановка 6: cba }
  writeln(units * 100 + tens * 10 + hundreds);
end.

Объяснение работы программы

1. Ввод числа: Программа сначала просит пользователя ввести трехзначное число и сохраняет его в переменную num.

2. Проверка диапазона: Проверяется, является ли введенное число трехзначным. Если нет, программа выводит сообщение об ошибке и завершает выполнение.

3. Извлечение цифр: Используются операции деления и остатка, чтобы выделить сотни, десятки и единицы числа:

   • hundreds содержит первую цифру (сотни),
   • tens — вторую цифру (десятки),
   • units — третью цифру (единицы).

4. Перестановка и вывод: Затем программа формирует шесть различных комбинаций этих цифр и выводит их на экран. Каждая перестановка формируется умножением цифр на 100, 10 и 1 для соответствующего порядка.

Таким образом, программа показывает все возможные числа, которые можно получить, переставляя цифры исходного трехзначного числа.