Question

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

Answer 1

Program swap

var a,b,c,n,m : integer;

begin

readln(n);

a:=n mod 10;

m:=n-a;

n:=m/10;

b:=n mod 10;

m:=n-b;

c:=m/10;

m:=a*100+b*10+c;

writeln('Ответ:', n);

readln;

end

Answer 2

Конечно, вот программа на языке Pascal, которая выполняет указанную задачу:

pascalCopy code
program ReverseDigits;

var
  originalNumber, reversedNumber, digit1, digit2, digit3: integer;

begin
  // Ввод трёхзначного числа
  write('Введите трёхзначное число: ');
  readln(originalNumber);

  // Разделяем число на цифры
  digit1 := originalNumber div 100;
  digit2 := (originalNumber mod 100) div 10;
  digit3 := originalNumber mod 10;

  // Формируем число с изменённым порядком цифр
  reversedNumber := digit3 * 100 + digit2 * 10 + digit1;

  // Вывод результата
  writeln('Исходное число: ', originalNumber);
  writeln('Число с изменённым порядком цифр: ', reversedNumber);
end.

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