Re: Help needed



On Oct 29, 7:48 pm, "LordOfNoldor" <skaldsandshad...@xxxxxxxxx> wrote:
Louis Krupp yazdi:

Can you write a program to print all of the numbers from 1 to 100?
Start with that, and then add the test to print only the numbers that
are not perfect squares.Also I can write what you said but can't get to write the not square
thing...

program ttt
implicit none
integer:: i
do i=1, 99
if ((i-int(sqrt(real(i)))**2) /= 0) print *, i
end do
print *, 'The end.'
end program ttt

.