program assign1_2
implicit none
integer :: i,j
real :: sumx,xxx
sumx=0.0
do i=0,10
   xxx=1.0/2.0**i
   sumx=sumx+xxx
enddo
print*,'a) 1+0.5+0.25+.... =',sumx
print*,' last xxx =',xxx
sumx=0.0
i=0
do
   xxx=1.0/2.0**i
   if(xxx > 1e-03) then
      sumx=sumx+xxx
      i=i+1
   else
      exit
   endif
enddo
print*,'b) 1+0.5+0.25+....+xxx where xxx > 1e-03 =',sumx
print*,' # rounds =',i
sumx=0.0
xxx=1.0
do while(xxx > 1e-03)
   sumx=sumx+xxx
   xxx=xxx/2.0
enddo
print*,'b) 1+0.5+0.25+....+xxx where xxx > 1e-03 =',sumx
j=0
do i=55,100
   j=j+i
enddo
print*,'c) 55+56+....+100 =',j
end program assign1_2