scriere.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 14 行

program scriere;
var n,i,r:integer;
begin
write('n=');readln(n);
i:=0;
while n<>0 do
           begin
           r:=n mod 2;
           if r=1 then i:=i+1;
           n:=n div 2;
           end;
write (i);
readln;
end.