- #1
Jeepster
- 4
- 0
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
It works great but let's say you put in 600, it will give
2
2
2
3
5
5
which is right but the teacher wants it to say:
2**3*3*5**2
I don't have a clue how to make it do that.
Thanks for any help. :)
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
It works great but let's say you put in 600, it will give
2
2
2
3
5
5
which is right but the teacher wants it to say:
2**3*3*5**2
I don't have a clue how to make it do that.
Thanks for any help. :)