|
「数学」小旅行 |
|
Perlでプログラムしてみました。
# 算数にチャレンジ第1004回 $count=0; $i=11; while($i<=60){$j=$i+11;$i++; while($j<=60){$k=$j+11;$j++; while($k<=60){$l=$k+11;$k++; while($l+11<=60){$count++;$l++;}}}} print "全部で、$count通りです。"; |
|
1月26日（木） 10:09:32
45902 |