Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Программу надо составить в паскале:
Составить программу определения вида треугольника по двум углам (прямоугольный, остроугольный, тупоугольный)

Ответ оставил Гость

Var a,b,c:real;
begin
readln(a);
readln(b);

c:=180 - a - b;

if (a > 90) or (b > 90) or (c > 90) then writeln(Тупоугольный)
 else if (a = 90) or (b = 90) or (c = 90) then writeln(Прямоугольный)
  else  writeln(Остроугольный);

end.