Question

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

Answer 1

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.