Высоту можно определить по известной формуле (если проблемы с этим - см. Интернет или задайте вопрос в Геометрии, чтобы формулу вывели):
, где a,b - катеты
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a,b:real;
Write('Введите катеты через пробел: '); Read(a,b);
Writeln('h=',a*b/sqrt(a*a+b*b))
end.
Наверное викитека я так думаю.
Чтобы чересчур не увлекаться арифметикой, введем понятие коэффициента пересчета k - отношения размера нового файла к старому.
Файл был записан в стерео (два канала) вместо моно (1 канал), поэтому k=2/1=2.
Разрешение стало в 4 раза выше (больше), поэтому k=2×4=8.
Частота дискретизации стала меньше в 3.5 раза, k=8/3.5=16/7 (оставим дробь, чтобы точность не терять).
Теперь можно легко найти новый размер файла:
49 Мб × k = 49×16/7 = 112 Мб (вот где дробь пригодилась - 49 разделилось на 7 без остатка).
Ответ: 112 Мб.
B) power(4, 2.5) + sqrt(1148.25 - power(1.1, 4)) / (156*cos(25*pi/180) + 2.6)
c) 148/abs(2.6 - power(1.4, 3)) + 18.1
2. √(ab) + 2a
---------------
b^2 + 2.3
3. var a: integer, V: integer
BEGIN
write ('Vvedite rebro a'); readln (a);
V = a*a*a;
writeln ('Ob'em kuba V = ', V);
END.