Invert Number

[mouse]

I am very New In Programming
I find Problem

How can I invert Number like 103 to 301

I am try But Need help

Code: Select all

program rr;
var y,x:integer;
begin
while y<>0  do
begin
readln(x);
y:= x mod 10;
writeln(y);
end;
x:=x div 10;
readln;
end;


[Johnny_Bit]

If you want to invert string representation of number in Delphi it's simple:

Code: Select all

var
  num, revnum, i:integer;
  s1, s2: string;
begin
  S1:=IntToStr(num);
  for I:=Length(S1) downto 1 do
    S2:=S2+S1[I]
  revnum:=strtoint(s2);
end;


[mouse]

Thanks
it`s simple but I am also beginner

[Kambiz]

And, for the integer values as follow:

Code: Select all

function MirrorNumber(Value: Integer): Integer;
begin
  Result := 0;
  while Value <> 0 do
  begin
    Result := Result * 10 + Value mod 10;
    Value := Value div 10;
  end;
end;