13 lines
428 B
Text
13 lines
428 B
Text
REM >deptnums
|
|
max_dept_num% = 7
|
|
dept_sum% = 12
|
|
PRINT "police sanitation fire"
|
|
FOR police% = 2 TO max_dept_num% STEP 2
|
|
FOR sanitation% = 1 TO max_dept_num%
|
|
IF sanitation% <> police% THEN
|
|
fire% = (dept_sum% - police%) - sanitation%
|
|
IF fire% > 0 AND fire% <= max_dept_num% AND fire% <> sanitation% AND fire% <> police% THEN PRINT " "; police%; " "; sanitation%; " "; fire%
|
|
ENDIF
|
|
NEXT
|
|
NEXT
|
|
END
|