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