vinarsky_evgeny

Untitled

Nov 22nd, 2015
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.25 KB | None | 0 0
  1. program z_12_12_e(input,output);
  2.  
  3. procedure reverse(n: integer);
  4. begin
  5. if (n<10) then write(n)
  6.   else begin
  7.         write(n mod 10);
  8.         reverse(n div 10);
  9.        end;
  10. end;
  11.  
  12. begin
  13. var x,n: integer;
  14. var k: real;
  15. read(n);
  16. reverse(n);
  17. end.
Advertisement
Add Comment
Please, Sign In to add comment