Question

Пользователь вводит пятизначное число,необходимо составить обратное число,заменив четные значения разрядов на нечетные и наоборот Паскаль

Answer 1

var

   n, m: longint;

   a: byte;

begin

   readln(n);

   m := 0;

   while n>0 do begin

       a := n mod 10;

       n := n div 10;

       m := m*10 + a;

   end;

   writeln(m);

 

readln;

end.

Answer 2

Для составления обратного числа, заменяя четные значения разрядов на нечетные и наоборот, можно использовать следующий алгоритм на языке Pascal:

pascalCopy code
program ReverseNumber;
var
  inputNumber, reversedNumber, digit: Integer;

begin
  // Вводим пятизначное число
  Write('Введите пятизначное число: ');
  ReadLn(inputNumber);

  // Проверяем, что число действительно пятизначное
  if (inputNumber < 10000) or (inputNumber > 99999) then
  begin
    WriteLn('Число должно быть пятизначным.');
    Exit;
  end;

  reversedNumber := 0;
  while inputNumber <> 0 do
  begin
    // Извлекаем последнюю цифру числа
    digit := inputNumber mod 10;

    // Заменяем четные цифры на нечетные и наоборот
    if digit mod 2 = 0 then
      digit := digit + 1
    else
      digit := digit - 1;

    // Добавляем цифру в обратное число
    reversedNumber := reversedNumber * 10 + digit;

    // Удаляем последнюю цифру из исходного числа
    inputNumber := inputNumber div 10;
  end;

  WriteLn('Обратное число с заменой четных и нечетных цифр: ', reversedNumber);
end.

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