RosettaCodeData/Task/Department-numbers/Bc/department-numbers.bc
2025-08-11 18:05:26 -07:00

7 lines
188 B
Text

print "P S F\n"
for(p=2;p<7;p+=2)
for(s=1;s<=7;s++)
for(f=1;f<=7;f++)
if (p != s && s != f \
&& p+s+f==12)
print p," ",s," ",f,"\n"