Ответы на вопрос:
Var a,b,c,cosa, cosb, cosc: real; begin writeln('введите стороны треугольника авс'); read(a,b,c); cosa: =(sqr(b)+sqr(c)-sqr(a))/(2*b*c); cosb: =(sqr(c)+sqr(a)-sqr(b))/(2*c*a); cosc: =(sqr(a)+sqr(b)-sqr(c))/(2*a*b); writeln('косинус угла а = ', cosa, ' косинус угла в =', cosb,' косинус угла c =', cosc); end.
Популярно: Информатика
-
CasDavis03.10.2022 10:46
-
Lisova130.06.2023 08:43
-
ildanmini08622.02.2020 04:20
-
Belgorodov3319.01.2023 23:55
-
niga12309813.08.2022 19:36
-
gjz12345605.07.2021 10:06
-
SAVAAVAAS16.02.2021 15:11
-
NastyaK2703.07.2020 14:12
-
wwwrlfoto10.11.2021 09:48
-
komkov203.01.2020 08:09