fork download
copy 
  1. program binario;
  2. var a,q,r,n,i:integer;
  3. t:array[1..10] of integer;
  4. begin
  5. n:=0;
  6. readln(a);
  7. repeat
  8. begin
  9. n:=n+1;
  10. q:=a div 2;
  11. t[n]:= a-2*q;
  12. write(t[n]);
  13. a:=q;
  14. end
  15. until q=0;
  16. writeln (' ');
  17. for i:=0 to n-1 do
  18. write (t[n-i]);
  19. end.
Success #stdin #stdout 0s 276KB
comments (?)
stdin
copy 
32767
stdout
copy 
111111111111111 
111111111111111
https://ideone.com/CzhTX9
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
public

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!