Ответы на вопрос:
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.
Популярно: Информатика
-
lenalime28.11.2020 10:39
-
Tadashimi201627.05.2022 07:16
-
ильзат1214.10.2020 20:50
-
marinapizdec31.07.2020 16:31
-
гвст17.03.2022 05:11
-
Goldcold31.10.2022 13:04
-
ALEXANDER98229.01.2021 12:41
-
киса81924.03.2020 15:25
-
4yfkilo514.09.2020 05:17
-
1111126921.04.2021 12:30