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 литровый сосуд
2 : выливаем из 4 в 5
3: набираем еще один 4л сосуд и сливаем из 4 в 5 под завязку
5. Таким образом имеем 3 литра в 4л сосуде
4: Освобождаем 5л сосуд и сливаем в него воду из 4л. Таким
образом имеем пустой 4л сосуд и 3 литра воду в 5л емкости.
5: набираем полный 4л сосуд и сливаем в 5л емкость(в которой
уже 3 литра). В итоге у нас остается 2 литра воды в 4 литровом сосуде.
Решение
a:=10;
b:=(10)+1;
a:=(11)-10;
Ответ: a = 1 b = 11