fork download
copy 
  1. function rN(a:longint):longint;
  2.     var
  3.         i:longint;
  4.     begin
  5.         i:=0;
  6.         while a > 0 do begin
  7.             i:=i * 10 + a mod 10;
  8.             a:=a div 10;
  9.         end;
  10.         rN:=i;
  11.     end;
  12.  
  13. var
  14.    b: longint;
  15. begin
  16.    readln(b);
  17.    writeln(rN(b));
  18. end.
Success #stdin #stdout 0s 280KB
comments (?)
stdin
copy 
123456789
stdout
copy 
987654321
https://ideone.com/rKhkuE
language:
Pascal (fpc 3.0.4)
created:
8 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!