программа в паскаль АВС определите вид треугольника по известным углам при этом если сумма углов не равна 180 градусов,то программа должна сообщить,что введены некорректные данные,проверьте условие
More Questions From This User See All
Answers & Comments
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.