Recent content by Jeepster

It says there is an error in the (I2, A2, I2, $). It has an arrow pointing to the first I2.

I know I just signed up but this thing is due in a few hours. Any help is much appreciated.

ok. I put this together but I am getting an error program Factors implicit none real::n, i, x integer::f, c=20 print*, "enter a positive integer:" read*, n i=2 do while (n>1) if (mod(n, i)==0) then i=i+1 n=n/i else write(*, 100) i, "**", c 100 format(I2, A2...

Got to write a program that factors a given number(>1) Here is what I have: program Factors implicit none real::n, i print*, "enter a number:" read*, n i=2 do while (n>1) if (mod(n, i)==0) then i=i+1 n=n/i else write (*,*) ' X= ', X end if end do end program...