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

3 числа, могут ли быть сторонами прямоугольного треугольника или нет? помогите пожалуйста напишите на языке паскаль получите 20 баллов за правельный ответ

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

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.