1:
　2:
　3:
　4:
　5:
　6:
　7:
　8:
　9:
 10:
 11:
 12:
 13:
 14:

#入力
printf("10進数を入力：");
$jyu = <STDIN>;

#変換
for($i=0; $i<16; $i++){
    $nisin[$i] = $jyu % 2;
    $jyu = int($jyu / 2);
}

#出力
for($i=16-1; $i>=0; $i--){
    print "$nisin[$i]";
}