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
2 Мбайт
но могу ошибаться ((
В задание должны быть варианты расстановки символов азбуки Морзе, ты их не привёл(-а), так что решить это невозможно.
1100:100*74=814 девочек
814+1100=1914 всего
Я просто не понимаю какой это класс и решила по логике.
Ответ:
1000 Кбайт
Объяснение:
512000*16/8/1025=1000 Кбайт