Question

Помогите решить задачу. Поменять местами первую и последнюю цифру натурального числа. решение в паскале. Тема while, repeat. Подробно, понятно пжлст

Answer 1

Var
  a, n: longint;
begin
  write('Введите число: ');
  readln(a);
  n := 1;
  while a div (n * 10) > 0 do
    n := n * 10;
  a := a mod 10 * n + a mod n div 10 * 10 + a div n;
  writeln('Поменяли первую и последнюю цифру:', a);
end.

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

Введите число: 12345
Число после преобразования:52341

Answer 2

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

var
  number, firstDigit, lastDigit, temp: integer;
begin
  // Вводим число
  write('Введите натуральное число: ');
  readln(number);
  
  // Получаем первую и последнюю цифры числа
  lastDigit := number mod 10;
  temp := number;
  while temp >= 10 do
  begin
    temp := temp div 10;
  end;
  firstDigit := temp;
  
  // Меняем местами первую и последнюю цифры
  temp := number - (firstDigit * 10 + lastDigit) + (lastDigit * 10 + firstDigit);
  
  // Выводим результат
  writeln('Число с переставленными цифрами: ', temp);
end.

В этом коде мы сначала вводим натуральное число с клавиатуры. Затем мы находим первую и последнюю цифры числа с помощью операций деления и остатка от деления на 10. Далее мы меняем местами первую и последнюю цифры, используя временную переменную. Наконец, мы выводим результат.

Примечание: В коде предполагается, что введенное число является натуральным числом (больше или равно нулю). Если введено отрицательное число или ноль, то результат будет некорректным.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.