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