Question

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

Answer 1

Var N:longint;
Begin
Write('N = ');ReadLn(N);
While N <> 0 do
   Begin
   Write(N mod 10);
   N:=N div 10;
   End;
End.