пожалуйста решите задачу в Паскале. ВВодится три отрезка. Понять, можно ли из них составить прямоугольный треугольник

Question

Александра · Accepted Answer

Ловите на почте, а то несовместимость текстов происходит...

Инга Данилова · Answer

Как-то так: 
 
var A, B, C, T : Real; 
begin 
Write('A = '); ReadLn(A); 
Write('B = '); ReadLn(B); 
Write('C = '); ReadLn(C); 
if A > B then begin T := A; A := B; B := T; end; 
if B > C then begin T := B; B := C; C := T; end; 
WriteLn('Прямоугольный треугольник составить можно = ', Abs(C*C-A*A-B*B) < 0.00001); 
end.