program Zadaniel_3
 
implicit none
 
 
real::eps,x,res0,res,controlres
integer:: i
 
!open(12,file="resultl_3.dat")
!print*,'Vvedite x'
!read*,x
!print*,'Vvedite tochnost'
!read*,eps
x=0.53
eps=0.001
 
 
 
i=2
res0=1-5*x/2
do
res=res0+res0*2*i*(2*i+3)*(-1)**i
if ((res-res0)<eps) exit
!write(12,*)i,res
i=i+1
res0=res
end do
 
print*,'Raschet po ryadu=',res0
print*,'Raschet po formule=',SOSI_PISOS(4.012)
 
contains
 
real function SOSI_PISOS(n)
  implicit none
  real, intent(in) :: n
  real :: ans
  integer :: i
  ans = sqrt((1+n)**5)
  SOSI_PISOS=ans
end function SOSI_PISOS
 
end program

cHJvZ3JhbSBaYWRhbmllbF8zCiAKaW1wbGljaXQgbm9uZQoKCnJlYWw6OmVwcyx4LHJlczAscmVzLGNvbnRyb2xyZXMKaW50ZWdlcjo6IGkKIAohb3BlbigxMixmaWxlPSJyZXN1bHRsXzMuZGF0IikKIXByaW50KiwnVnZlZGl0ZSB4JwohcmVhZCoseAohcHJpbnQqLCdWdmVkaXRlIHRvY2hub3N0JwohcmVhZCosZXBzCng9MC41MwplcHM9MC4wMDEKIAogCiAKaT0yCnJlczA9MS01KngvMgpkbwpyZXM9cmVzMCtyZXMwKjIqaSooMippKzMpKigtMSkqKmkKaWYgKChyZXMtcmVzMCk8ZXBzKSBleGl0CiF3cml0ZSgxMiwqKWkscmVzCmk9aSsxCnJlczA9cmVzCmVuZCBkbwogCnByaW50KiwnUmFzY2hldCBwbyByeWFkdT0nLHJlczAKcHJpbnQqLCdSYXNjaGV0IHBvIGZvcm11bGU9JyxTT1NJX1BJU09TKDQuMDEyKQogCmNvbnRhaW5zCgpyZWFsIGZ1bmN0aW9uIFNPU0lfUElTT1MobikKICBpbXBsaWNpdCBub25lCiAgcmVhbCwgaW50ZW50KGluKSA6OiBuCiAgcmVhbCA6OiBhbnMKICBpbnRlZ2VyIDo6IGkKICBhbnMgPSBzcXJ0KCgxK24pKio1KQogIFNPU0lfUElTT1M9YW5zCmVuZCBmdW5jdGlvbiBTT1NJX1BJU09TCgplbmQgcHJvZ3JhbQ==