fork download
copy 
  1. Program PerevodChisla;
  2.  
  3. function Dec2Bin(decim: integer): string;
  4. var binar: string[255];
  5. begin
  6.     while decim > 0 do 
  7.     begin
  8.         if Decim mod 2 = 0 then 
  9.             binar := '0' + binar
  10.         else 
  11.             binar := '1' + binar;
  12.         decim := decim div 2;    
  13.     end;
  14.     Dec2Bin := binar;
  15. end;
  16.  
  17.  
  18. var a:integer;
  19.  
  20. begin
  21. readln(a);
  22. writeln(Dec2Bin(a));
  23. end.
Success #stdin #stdout 0s 5448KB
comments (?)
stdin
copy 
24
stdout
copy 
11000
https://ideone.com/adTQ1g
language:
Pascal (gpc 20070904)
created:
2 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!