Маша очень любит петь у костра. И вот летом её пение - вопрос №11728033 от 13nastuxxa 16.02.2021 08:32

Question

Информатика: Маша очень любит петь у костра. И вот летом её пение решили записать на диск. Провадилась стерео запись (двуканальня) с 24 - ох битным разрешением и чястотой дискритизации 43 кГц. После того как записали все её песни получился файл объёмом 845мБайт. Сжатие данных решили не проводить. Сколько времени в часах надо потратить что бы послушать все песниМаша очень любит петь у костра. И вот летом её пение решили записать на диск. Провадилась стерео запись (двуканальня) с 24 - ох битным разрешением и чястотой

13nastuxxa · Answer

var

a,b,c,P,p2,S,Ha,Hb,Hc:real;

begin

writeln('Введите значение стророны a');

readln(a);

writeln('Введите значение стророны b');

readln(b);

writeln('Введите значение стророны c');

readln(c);

P:=a+b+c;

p2:=P/2;

S:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));

Ha:= 2*sqrt(p2*(p2-a)*(p2-b)*(p2-c))/a;

Hb:= 2*sqrt(p2*(p2-a)*(p2-b)*(p2-c))/b;

Hc:= 2*sqrt(p2*(p2-a)*(p2-b)*(p2-c))/c;

writeln('Периметр треугольника P = '+P);

writeln('площадь треугольника S = '+S);

writeln('высота треугольника Ha = '+Ha);

writeln('высота треугольника Hb = '+Hb);

writeln('высота треугольника Hc = '+Hc);

end.