Question

Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (например, дано число 156, нужно получить 651).

Answer 1

uses crt;
var
   a,b:integer;
 
function asd(x,i:integer) :integer;
begin
   if x=0 then asd:=-b
   else begin
      if x div 10 <>0 then
         b:=b +i*10+ x mod 10;
      asd:=(i*10+ x mod 10) + asd(x div 10,i*10+ x mod 10 )
   end;
end;
 
begin
   clrscr;
   b:=0;
   readln(a);
   writeln(asd(a,0));
   readkey
end.