数学検定準2級-5

しらみつぶし法で求めましょう。
４つを選ぶすべてのパターンを生成してPを求めて奇数だったら表示します。
For 1→A To 3
For A+1→B To 4
For B+1→C To 5
For C+1→D To 6
A×B×C＋A×B×D＋A×C×D＋B×C×D→P
If Frac(P÷2)=0.5:Then P◢
IfEnd
Next:Next:Next:Next:Cls
このプログラムを実行すると61, 107,153が表示されます。