|
||
|
|
||
|
pascal的程序。
var a:array[1..3]of integer; i,temp:longint; begin read(a[1]); for i:=2 to 3 do begin read(a[i]); if a[i]>a[1] then begin temp:=a[i]; a[i]:=a[1]; a[1]:=temp; end; end; if a[2]+a[3]<=a[1] then writeln('Error!') else if a[2]*a[2]+a[3]*a[3]=a[1]*a[1] then writeln('Yes!') else writeln('No!'); end.