Re: Turbo Pascal question

john said:

> More precisely, I want to do a program that provides and stores the
> reverse of a number. For example:
> 
> 
> input: 12345
> 
> result: 54321

function reverse(input : integer) : integer;
  var
    result : integer;
    last : integer;
begin
  result := 0;
  while input > 0 do
  begin
    last := input mod 10;
    result := result * 10;
    result := result + last;
    input := input div 10
  end;
  reverse := result
end

And that's it (except that I haven't tested it as such). Not sure why you 
need powers.

-- 
Richard Heathfield <http://www.cpax.org.uk>
Email: -http://www.
+rjh@[EMAIL PROTECTED]
 users: <http://www.cpax.org.uk/prg/writings/googly.php>
"Usenet is a strange place" - dmr 29 July 1999