Pascal. Задача 3-11*

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

Решение

var
  N1, N2, digit : integer;
begin
  N2 := 0;
  writeln('Введите натуральное число, меньше 1000000: ');
  read(N1);
  while N1 > 0 do begin
    digit := N1 mod 10;  // Выделяем последнюю цифру числа
    N2 := N2 * 10 + digit;  // Смещаем цифры в результате на одну позицию влево
                            // и добавляем выделенную цифру
    N1 := N1 div 10; // Отбрасываем последнюю цифру числа
  end;
  writeln('Преобразованное число ', N2);
end.