Программа разветвляющейся структуры Опции

[Beseech]

Даны три числа. Определить, можно ли построить прямоугольный треугольник,длины сторон которого равны заданным числам.
Заранее благодарен

[Tan]

uses crt;
var a, b, c : real;
begin
readln (a);
readln (b);
readln ©;
if (sqrt(sqr(a)+sqr(b))=c) or (sqrt(sqr(b)+sqr©) = a) or (sqrt(sqr©+sqr(a)) = b) then writeln ('Yes') else writeln ('No');
readkey;
end.   

Проверям основное условие существования прямоугольного треугольника это выполнение теоремы Пифагора.

Сообщение отредактировано: Tan - 15.03.2007 22:55