Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ы
Language: C/C++
Code:
program pr4
 integer s1,k,g,s
 write(*,*) "vvdedite chislo k" 
 read(*,*) k

 do g=2,k
 s=del(g)
 s1=del(j)
 if((s1==g).and.(s/=g).and.(s/=x)) then
 write(*,*) "Chisla",g," i",s,"-drugestvenie"
 x=s1
 endif

 end do 
 contains
 integer function del(a)
 integer s,i,a
 s=0
 do i=1,a-1
 if(mod(a,i)==0) then
 s=s+i
 end if 
 end do
 del=s
 end function del 

 end
          
          
Comments: