Ответы на вопрос:
Держи var a,b,c: real; begin writeln ('введите углы искаемого треугольника'); readln (a,b,c); if a+b+c=180 then begin if (a< 90) and (b< 90) and (c< 90) then writeln ('треугольник является остроугольным ') else if (a=90) or (b=90) or (c=90) then writeln('треугольник является прямоугольным') else if (a> 90) or (b> 90) or (c> 90) then writeln ('треугольник является тупоугольным') end else writeln ('треугольника не существует'); readln end.
Популярно: Информатика
-
Патрик311124.01.2021 13:16
-
OLEGator80019.03.2021 11:31
-
biyubiyu03.01.2021 07:19
-
Valeria15141503.12.2021 18:29
-
nurbibisaidova331.05.2020 11:20
-
messageman107.08.2020 16:27
-
supersattarova25.11.2022 13:08
-
Spokeup31.12.2021 22:20
-
JonHenryEdem104.10.2020 19:33
-
kuralova20013.09.2020 13:08