AOJ(会津オンラインジャッジ)には、 Perlで問題提出ができないということで、 ここに解答を書いていきます。Hello World[Problem 10000] print "Hello World\n"; XCubic[Problem 10001] print ((<STDIN>**3)."\n"); Rectangle[Problem 10002] <STDIN> =~ /(\d) *(\d)/g; my</stdin></stdin>…

2進化10進数と2進数のバイナリでの'1'の数をカウントし、 数が同じであるかを判定するプログラムを書いてみました。例えば、34という数は、 2進化10進数では'3'と'4'をそれぞれバイナリで表し 結合するため、'0011 0100'となり、 2進数では'0010 0010'となり…