Question

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

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
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('Остроугольный');
if (a>90) or (b>90) or (c>90) then writeln('Тупоугольный');
end
else
writeln('Неверно заданы углы');
end.