Question

ЯЗЫК PASCAL ABC. Ввести с клавиатуры натуральное трехзначное десятичное число. Вычислить и вывести на экран число,полученное путем переворота цифр исходного числа. Например: для 253 получить 352

Answer 1

Var a:integer;
begin
  writeln('Введите трехзначное число: ');
  readln(a);
  a:=(a mod 10)*100 +((a div 10) mod 10)*10+a div 100;
  writeln('Число наоборот ',a);
end.

Тестовое решение

Введите трехзначное число:
123
Число наоборот 321

Введите трехзначное число:
-567
Число наоборот -765
 

Answer 2

В языке Pascal можно решить данную задачу следующим образом:

program ReverseNumber;
var
  num, reversedNum: integer;
  units, tens, hundreds: integer;
begin
  writeln('Введите трехзначное число:');
  readln(num);

// Разбиваем число на цифры
  units := num mod 10;  // единицы
  tens := (num div 10) mod 10;  // десятки
  hundreds := num div 100;  // сотни

// Переворачиваем цифры
  reversedNum := units * 100 + tens * 10 + hundreds;

writeln('Число, полученное путем переворота цифр:', reversedNum);
end.

В данном коде мы считываем трехзначное число с помощью `readln`, затем разбиваем его на цифры, используя операторы деления и остатка от деления. Затем перемножаем каждую цифру на соответствующую степень 10 (единицы на 1, десятки на 10, сотни на 100) и складываем полученные результаты.

Например, для числа 253:

- `units = 253 mod 10 = 3` (единицы) - `tens = (253 div 10) mod 10 = 5` (десятки) - `hundreds = 253 div 100 = 2` (сотни)

Затем мы перемножаем каждую цифру на соответствующую степень 10 и складываем результаты:

`reversedNum = 3 * 100 + 5 * 10 + 2 = 300 + 50 + 2 = 352`

И выводим результат на экран.