十進BASIC
■ このスレッドは過去ログ倉庫に格納されています
0082デフォルトの名無しさん
2010/10/23(土) 10:12:25DIM N(7)
110 FOR I=1 TO 7
READ N(I)
NEXT I
120 FOR A=1 TO 6
FOR B=A+1 TO 7
FOR C=1 TO INT((200-N(B))/N(A))
FOR D=1 TO INT((200-N(A))/N(B))
130 LET SUM=N(A)*C+N(B)*D
140 GOSUB 1221
150 NEXT D
NEXT C
NEXT B
NEXT A
155 PRINT"5",ANS
■ このスレッドは過去ログ倉庫に格納されています