fork download
copy 
  1. program salti;
  2. var D, q, r, count : int64;
  3. begin
  4.    readln(D);
  5.    q:=D; count:=0; 
  6.    while q<>0 do
  7.                begin
  8.                  r:= q mod 2; 
  9.                  q:=q div 2; 
  10.                  if r=1 then count:=count+1;
  11.                end;
  12.    writeln(count);            
  13. end.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
16
stdout
copy 
1
https://ideone.com/rfskAH
language:
Pascal (fpc 3.0.4)
created:
7 hours 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!