fork download
  1. program cebirsel_uydurma
  2. integer x,y,z
  3.  
  4. print*," x-----------y------------z---------x+y+z"
  5.  
  6. do x = -40,40
  7. do y = -40,40
  8. do z = -40,40
  9. if ((x==0).or.(y==0).or.(z==0).or.(x==-1).or.(y==-1).or.(z==-1)) cycle
  10. if ((x==y).or.(x==z).or.(y==z)) cycle
  11. if (((3*x+4*y)==7*z).and.((3*x**3+4*y**3)==7*z**3)) print*,x,y,z,x+y+z
  12. enddo
  13. enddo
  14. enddo
  15.  
  16. end program
Success #stdin #stdout 0.01s 5316KB
stdin
Standard input is empty
stdout
          x-----------y------------z---------x+y+z
         -33          30           3           0
         -22          20           2           0
         -11          10           1           0
          22         -20          -2           0
          33         -30          -3           0