Фамилия
Имя
Город проживания
Регистрационный номер авто
Номер дома!
Смотри. Мороз И Солнце - 200. Солнце ИЛИ Мороз - 3300. При запросе Солнце ИЛИ Мороз может появиться отдельно мороз, отдельно солнце или отдельно мороз и солнце. Так как мороз И солнце - 200 страниц, то из 3300 вычитаем 200 и получаем сумму страниц отдельно солнце и отдельно мороз. А так как при запросе Солнце найдено 2000 страниц, то из 3100 вычитаем 2000 и получаем число страниц с Морозом, то есть 1100
Ответ: 1100
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
Могу скинуть ответы на весь этот тест. ну а в этом вопросе ответ а)