Даны 3 числа a,b,cопределить: являются ли они углами прямоугольного треугольника

Question

Даны 3 числа a,b,c
определить: являются ли они углами прямоугольного треугольника

Answer 1

Var a,b,c:integer;
begin
readln(a,b,c);
if (a+b+c=180) and ((a=90) or (b=90) or (c=90))
then writeln('Это углы прямоугольного треугольника')
else writeln('Это не углы прямоугольного треугольника');
end.

Помог ставь "Лучший ответ"

---

Comments

а блок-схему нарисуешь ?

---

Ок ща

---

Добавил

---

спасибо