|
通りすがり |
|
十進basicで、私ならこうかなぁ〜
CALL puls10(0, count) print count END EXTERNAL SUB puls10(s, count) IF s >= 10 THEN IF s = 10 THEN LET count=count+1 EXIT SUB END IF FOR i=1 TO 4 CALL puls10(s+i,count) NEXT I END SUB |
|
11月10日（木） 8:17:44
38560 |