Cod sursa(job #593421)

Utilizator vendettaSalajan Razvan vendetta Data 2 iunie 2011 17:41:59
Problema Rj Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.16 kb
Raporteaza aceasta sursa 
var
    num, n, i  : longint;

begin
    readln( n );
    for i := 0 to 31 do
        if (n and ( 1 shl i )>0) then inc( num );

    writeln( num );
end.