Question

Write FORTRAN 90 statements that will display an appropriate message if an integer variable test is divisible by 2,3, and or 10 using if statements.

Answer 1

program hello
    integer ::test=30
    if(mod(test,2)==0) then
    Print *,test,"is divisible by 2"
    end if
    if(mod(test,3)==0) then
    Print *,test,"is divisible by 3"
    end if
    if(mod(test,10)==0) then
    Print *,test,"is divisible by 10"
    end if
end program hello