RosettaCodeData/Task/Department-numbers/BCPL/department-numbers.bcpl
2023-07-01 13:44:08 -04:00

8 lines
201 B
Text

get "libhdr"
let start() be
for p=2 to 6 by 2
for s=1 to 7
for f=1 to 7
if p~=s & s~=f & p~=f & p+s+f=12 then
writef("%N %N %N*N", p, s, f)