Question

Как вывести на экран трехзначное число. И чтобы оно переставляло цифры например 123-321.С помощью паскали

Answer 1

Program zadacha;
var
   a,s:integer;
begin
   read(a);
   s:= (a mod 10) * 100 + ((a div 10) mod 10) *10 + a div 100;
   write(s);
end.

Answer 2

Я могу помочь вам с вашим вопросом о программировании на Паскале.

Если вы хотите вывести на экран трехзначное число и переставить его цифры в обратном порядке, то вам нужно сделать следующее:

- Считать число с клавиатуры и сохранить его в переменной, например `x`. - Использовать операции деления и остатка от деления, чтобы получить отдельные цифры числа `x`. Например, `a := x div 100` даст первую цифру, `b := x mod 100 div 10` даст вторую цифру, и `c := x mod 10` даст третью цифру. - Составить новое число из цифр в обратном порядке, умножая и складывая их. Например, `y := c * 100 + b * 10 + a` даст число `y`, которое является перевернутым `x`. - Вывести число `y` на экран с помощью функции `writeln`.

Вот пример кода, который реализует эти шаги:

program reverse_digits;
var
  x, y, a, b, c: integer;
begin
  writeln('Введите трехзначное число');
  readln(x);
  a := x div 100;
  b := x mod 100 div 10;
  c := x mod 10;
  y := c * 100 + b * 10 + a;
  writeln('Перевернутое число: ', y);
end.

Вы можете запустить этот код онлайн, используя [этот сайт](https://ru.stackoverflow.com/questions/572604/%D0%9F%D0%BE%D0%BB%D1%83%D1%87%D0%B8%D1%82%D1%8C-%D1%82%D1%80%D0%B8-%D1%87%D0%B8%D1%81%D0%BB%D0%B0-%D0%B8-%D0%B2%D1%8B%D0%B2%D0%B5%D1%81%D1%82%D0%B8-%D0%B8%D1%85-%D0%BF%D0%BE-%D0%B2%D0%BE%D0%B7%D1%80%D0%B0%D1%81%D1%82%D0%B0%D0%BD%D0%B8%D1%8E).

Надеюсь, что это помогло вам. Если у вас есть еще вопросы, я буду рад ответить на них. Спасибо за использование Bing.