polibfbxbdbdbcb

25.06.2021 17:01 •  Информатика

Построить алгоритм (нарисовать блок-схему) program z1; var a,b,c, ua, ub, uc, s, p, hc: real; begin writeln('введите 3 стороны'); read(a,b,c); p: =a+b+c; writeln('периметр= ',p); s: =sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c)); writeln('площадь= ',s); hc: =2*s/c; writeln('высота к стороне c ',hc); ua: =arccos((b*b+c*c-a*a)/(2*b*c)); writeln('угол против стороны a ', ua); ub: =arccos((c*c+a*a-b*b)/(2*a*c)); writeln('угол против стороны b ',ub); uc: =arccos((a*a+b*b-c*c)/(2*a*b)); writeln('угол против стороны c ',uc); end.