Решить эту в для двух треугольников с катетами а, b, с, d. найти сумму площадей треугольниковвычисление площади оформить в виде под программы-функция или процедура

Function s_tr(a,b: integer): real; begin s_tr: =a*b/2 end; var a,b,c,d: integer; s: real; begin s: =0; read(a,b,c,d); s+=s_tr(a,b); s+=s_tr(c,d); writeln(s); end.

Фомулы:   n =  , где n - мощность алфавита, i - количество бит на 1 символ. v = k * i, где v - объем, k - количество символов в сообщении. количество бит на 1 символ у племени мульти: n =  , 32= , i = 5 бит. количество бит на 1 символ у племени пульти: n =  , 64= , i = 6 бит. найдем объем информации мульти:   v ₁  = k * i, v₁ = 80 * 5 = 400 бит. найдем объем информации пульти: v₂ = k * i, v₂ = 70 * 6 = 420 бит. сравним объемы: v₂ - v₁ = 20 бит ответ: объем информации племени пульти больше племени мульти на 20 бит.

Используем известный алгоритм, согласно которому нужно: а) перевести степень в двоичную систему счисления и отбросить самую левую единичку, получая битовую шкалу m. 45₁₀ = 101101₂, отбрасываем левую единицу, m=01101 б) положить результат r равным квадрату основания степени х: r=x² в) если значение самого левого бита равно 1, домножить r на х. у нас 0. далее для каждого последующего бита в порядке слева направо выполнять: г) возвести r в квадрат. если бит единичный, домножить r на х. в нашем случае: r=r²x; r=r²x r=r² r=r²x окончательно для x⁴⁵: r=x²; r=r²x; r=r²x; r=r²; r=r²x x²¹) 21₁₀ = 10101₂ ⇒ 0101; r=x²; r=r²x; r=r²; r=r²x x¹⁷) 17₁₀ = 10001₂ ⇒ 0001; r=x²; r=r²; r=r²; r=r²x x¹¹) 11₁₀ = 1011₂ ⇒ 011; r=x²; r=r²x; r=r²x