明解Ｃ言語 入門編 > 7. 基本型 > ビットシフト Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;function count_bits(x:Longword):Integer; var count:Integer; begin count := 0; while (x <> 0) do begin if x and 1 <> 0 then inc(count); x :…