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

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

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

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.