Question

помогите решить задачу по информатике с помощью PascalABC.NET

Answer 1

// PascalABC.NET 3.4, сборка 1767 от 27.08.2018

// Внимание! Если программа не работает, обновите версию!

begin

var (a, b) := ReadReal2('Введите два угла треугольника в градусах:');

var c := 180 - a - b;

var mx := Max(a, Max(b, c));

if mx > 90 then Print('Тупоугольный')

else

if mx = 90 then Print('Прямоугольный')

else Print('Отстроугольный')

end.