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. Для ответа на первый вопрос в ячейку H2 введем формулу = СУММ(D2:Dx)
где Dx - адрес последней ячейки, когда перевозили груз 3 октября.
2. Для ответа на второй вопрос в ячейку H3 необходимо ввести формулу =СУММЕСЛИ(B2:B371;"Липки";F2:F371)/СЧЁТЕСЛИ(B2:B371;"Липки").
В первой части формулы записана сумма всех ячеек F, при условии если в ячейках столбца B название "Липки".
Во второй части формулы подсчитываем количество ячеек столбца B с названием "Липки".
Разделив первую часть формулы на вторую получим ответ на второй вопрос.
Что получится в ячейках H2 и Н3 можно будет увидеть введя формулы в реальную таблицу.
Paint
<span>который входит в состав MS Windows</span>
Ответ:
49 div 10 = 4
49 div 5 = 9
53 div 5 = 10
39 div 6 = 6
16 div 7 = 2
345 div 10 = 34
1234 div 1000 = 1
44 div 1000 = 0
123 div 500 = 0
31 mod 17 = 14
18 mod 3 = 0
245 mod 10 = 5
1243 mod 100 = 43
15 mod 7 = 1
4413 mod 10 = 3
45 mod 100 = 45
36 mod 100 = 36
10 mod 5 = 0
11 mod 5 = 1
10 mod 3 = 1
14 mod 5 = 4
22 mod 5 = 2
31 mod 16 = 15
div mod
17 mod -5 = 2 17 = -5 * (-3) + 2
div mod
-17 mod 5 = 3 -17 = 5 * (-4) + 3
Объяснение:
div - вычисляет целую часть от деления
mod - вычисляет остаток от деления
(не путать с целой и дробной частью, которая получается при делении на калькуляторе!!!)
причем, остаток от деления это неотрицательное число, которое больше или равно нулю, но меньше делителя!
По закону де Моргана:
¬ (A /\ ¬B) \/ ¬C ⇒ ¬A \<span>/</span> B \/ ¬C