Question

могут ли данные углы a,b,y быть углами одного треугольника?
данные для ввода: 1)a=40,b=60,y=80;
2)a=40,b=60,y=90.

Answer 1

Var
  a,b,y:integer;
Begin
  Write('Введите углы треугольника ');
  Readln(a,b,y);
  if a+b+y=180 then write('Такой треугольник существует ') else write('Такой треугольник не существует ');
End.