Var a,b,c:real; begin writeln ('Введите стороны треугольника'); read (a,b,c); if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then begin if (sqr(a)+sqr(b)=sqr(c)) then writeln ('Это прямоугольный треугольник'); if (sqr(a)+sqr(b)>sqr(c)) then writeln ('Это остроугольный треугольник'); if (sqr(a)+sqr(b)<sqr(c)) then writeln ('Это тупоугольный треугольник'); end else writeln ('Такого треугольника не существует'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
