Ответы на вопрос:
Var a,b,c: real; begin writeln('введите значения трех углов: '); readln(a,b,c); if (a+b+c)< > 180 then writeln('введены некорректные данные')else if (a=90)or(b=90)or(c=90) then writeln('прямоугольный')else if (a=b)and(b=c) then writeln('равносторонний')else if (a=b)or(b=c)or(a=c) then writeln('равнобедренный')else writeln('разносторонний') end.
Популярно: Информатика
-
ZlataM112.01.2022 21:53
-
Димон2014312.12.2022 08:51
-
масяня15518.04.2021 08:46
-
daniliwotchesi09.04.2023 05:34
-
liza2003833321.06.2022 10:46
-
jungkokBTSlove11.06.2020 13:53
-
nnk1Eer708.04.2022 05:53
-
seocer08.04.2020 22:36
-
Совушка0903.01.2023 18:43
-
annushkan003.06.2021 17:52