implicit none double precision a,b,c read(*,*) a,b if ((mod(b,a)).eq.0) then c=b/a write(*,*) int(c) else c=b/a c=c+1 write(*,*) int(c) end if end