var r,h:real;
Begin
read(r,h);
writeln('S=',pi*r*2*h/3);
End.
Киттикрот -> китти р т
Можно просто проделать те же самые действия самостоятельно)
subroutine SumSer(eps, res)
real eps
real(8) res
real(8) :: sgn = -1, z = 1, a
integer :: i = 1
res = 0
do
z = z * (2 * i) * ( 2 * i - 1)
a = sgn / z
if (abs(a) <= eps) then
exit
endif
res = res + a
sgn = -sgn
i = i + 1
enddo
end subroutine SumSer
program MainProg
real :: eps = 0.00001
real(8) y
call SumSer(eps, y)
write(*,'(1X,F9.6)') y
end program MainProg
1. 4+1 = 5 (7)
2. 5*2 = 10 (8)
3. 10+1 = 11 (7)
4. 11*2 = 22 (8)
5. 22+1 = 23 (7)
6. 23*2 = 46 (8)
7. 46+1 = 47 (7)
8. 47*2 = 94 (8)