Ответы и объяснения

2013-11-28T21:55:00+04:00
Var a,b,c,d:longint;
begin
read(a,b);
If (a+b=90) or (a=90) or (b=90) then
writeln('Прямоугольный') else
if (a+b<180) then
writeln('Существует')
else
writeln('Нет');
end.

var a,b,c,d:real;
begin read(a,b); if a<=b then beginc:=a; a:=(a+b)/2; b:=2*b*c; end else begin c:=b; b:=(a+b)/2; a:=2*a*c; end; end.

var a,b,c,d:longint;
function max(a,b:longint):longint; begin if a>=b then max:=a else max:=b; end; begin read(a,b); if a<>b then begin a:=max(a,b); b:=max(a,b); end else begin a:=0; b:=0; end;
end.