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

Конечно, вот программа на Pascal, которая решает эту задачу. Я постарался сделать ее максимально понятной:

```pascal program PerevodChisla;

var chislo, cifra1, cifra2, obratnoeChislo: integer;

begin // Запрашиваем у пользователя двузначное число writeln('Введите двузначное натуральное число:'); readln(chislo);

// Проверяем, что число действительно двузначное и натуральное if (chislo < 10) or (chislo > 99) then begin writeln('Ошибка: Введено не двузначное число!'); end else begin // Выделяем первую и вторую цифры числа cifra1 := chislo div 10; // Первая цифра (десятки) cifra2 := chislo mod 10; // Вторая цифра (единицы)

// Формируем число, образованное перестановкой цифр obratnoeChislo := cifra2 * 10 + cifra1; // Выводим результат writeln('Число, образованное перестановкой цифр: ', obratnoeChislo);

end;

readln; // Чтобы окно консоли не закрылось сразу после выполнения end. ```

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

1. Объявление переменных:

   • chislo: Исходное двузначное число.
   • cifra1: Первая цифра числа (десятки).
   • cifra2: Вторая цифра числа (единицы).
   • obratnoeChislo: Число, полученное перестановкой цифр.

2. Ввод данных:

   • Программа просит пользователя ввести двузначное число с помощью writeln и считывает его с помощью readln.

3. Проверка числа:

   • Проверяется, что введенное число действительно двузначное (больше 9 и меньше 100). Если это не так, выводится сообщение об ошибке.

4. Выделение цифр:

   • cifra1 := chislo div 10; Операция div выполняет целочисленное деление. Например, если chislo равно 42, то 42 div 10 будет равно 4.
   • cifra2 := chislo mod 10; Операция mod возвращает остаток от деления. Например, если chislo равно 42, то 42 mod 10 будет равно 2.

5. Формирование нового числа:

   • obratnoeChislo := cifra2 * 10 + cifra1; Вторая цифра умножается на 10 (чтобы она стала десятками), и к ней прибавляется первая цифра (единицы).

6. Вывод результата:

   • Программа выводит полученное число obratnoeChislo на экран.

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

Пример:

Если ты введешь число 25, программа выведет число 52.