Я не совсем понял, зачем тебе тут randomize timer, но не суть. Сделал все в точности по коду.
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
В состав этого пакета входят:
– текстовый редактор Microsoft Word,
– электронные таблицы Microsoft Excel,
– система управления базами данных Microsoft Access,
– программа подготовки компьютерных презентаций Power Point,
– программа – планировщик рабочего времени (блокнот) Outlook,
B=4
a=3
b=<span>7-2*a-b=7-2*3-4=7-6-4=-3
a=b/3-a=-3/3-3=-1-3=-4
ответ:a=-4
b=-3</span>
Первый забор идет вдоль стороны a и имеет длину a-1.
Второй забор идет вдоль стороны b и имеет длину b-1.
Третий забор имеет длину a-2. Четвертый имеет длину b-2.
И т. д., каждый вертикальный забор уменьшается каждый раз на 1,
то есть a-1, a-2, a-3... до 1
Каждый горизонтальный забор тоже уменьшается каждый раз на 1,
но первый забор имеет длину (b-2), а последний не 1, а (b-a).
Таким образом, сумма всех вертикальных заборов
S1 = 1+2+3+...+(a-1) = (1 + a - 1)*(a-1)/2 = a*(a-1)/2
Сумма всех горизонтальных заборов
S2 = (b-a)+(b-a+1)+(b-a+2)+...+(b-2) = (b-a+b-2)*(a-1)/2 = (2b-a-2)(a-1)/2
Итоговая длина всей ограды
S = S1 + S2 = a(a-1)/2 + (2b-a-2)(a-1)/2 = (a+2b-a-2)(a-1)/2 = (b-1)(a-1)