Программу надо составить в паскале: Составить программу определения вида треугольника по...

Question

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

Comments

http://znanija.com/task/11508913

---

ооокк

---

очень ннннада

---

только запиши как программу плиз

---

ждуус

Answer 1

Var a, b, c: integer;
begin
write('Угол A = ');
readln(a);
write('Угол B = ');
readln(b);
if (a>0) and (b>0) and (a+b<180) then<br>begin
c:=180-a-b;
writeln('Угол C = ', c);
if (a=90) or (b=90) or (c=90) then writeln('Прямоугольный');
if (a<90) and (b<90) and (c<90) then writeln('Остроугольный');<br>if (a>90) or (b>90) or (c>90) then writeln('Тупоугольный');
end
else
writeln('Неверно заданы углы');
end.