Question

fortran90编程中判断一个正整数是否为完数的程序，若是输出yes,否则输出no

Answer 1

	integer a,i,k,sum
	read(*,*)a
	k=int(a/2+0.1)
	sum=0
	do 10 i=1,k
	if (mod(a,i).eq.0)  sum=sum+i
10	continue
	if (sum.eq.a) then 
		write(*,*)'yes'
	else
		write(*,*)'no'
	endif
	pause
	end