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
Не видно, я ничего разобрать не могу
Решение - в прилагаемом файле.
<span>Разработать программу для подсчета количества отрицательных чисел среди целых чисел a, b, c. Программа должна иметь дружественный интерфейс. Протестировать программу для всех возможных случаев (когда количество отрицательных чисел равно 0, 1, 2 и 3).</span>
<span> ОТВЕТ:</span>
<span>var</span> a<span>,</span>b<span>,</span>c<span>,</span>k<span>:</span><span>integer</span>;
1)-622
2)-26Е
3)-11001101
4)-110100100
5)-212.8125