Прямоугольный треугольник не может быть равносторонним, если что
var a,b,c,P,S:real;
begin
readln(a,b);
c:=Sqrt(Sqr(a)+Sqr(b));
P:=a+b+c;
writeln(P);
S:=a*b/2;
writeln(S);
if a=b then writeln('треугольник равнобедренный')
end.
Объяснение:
Прямоугольный треугольник не может быть равносторонним, если что
var a,b,c,P,S:real;
begin
readln(a,b);
c:=Sqrt(Sqr(a)+Sqr(b));
P:=a+b+c;
writeln(P);
S:=a*b/2;
writeln(S);
if a=b then writeln('треугольник равнобедренный')
end.
Объяснение: