#!usr/bin/perl -w print "Binary number: \n"; $bin = <STDIN>; chomp $bin; $dec = 0; $exp = (length($bin)) - 1; @bin = split(//,$bin); chomp ...
確定! 回上一頁