RosettaCodeData/Task/Extend-your-language/Phix/extend-your-language-7.phix
2024-10-16 18:07:41 -07:00

12 lines
329 B
Text

for N=10 to 20 do
printf(1,"%d is ",N)
if2 mod(N,2)=0, mod(N,3)=0 then
puts(1,"divisible by both two and three.\n")
else1
puts(1,"divisible by two, but not by three.\n")
else2
puts(1,"divisible by three, but not by two.\n")
else
puts(1,"neither divisible by two, nor by three.\n")
end if2
end for