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

Программа в паскаль АВС определите вид треугольника по известным углам при этом если сумма углов не равна 180 градусов,то программа должна сообщить,что введены некорректные данные,проверьте условие

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

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.