я немного усложнил условие и ввел возможность определения прямоугольного треугольника.
Рационально ли написана программа или можно упростить код? я новичок, и у меня есть привычка все усложнять.
uses
crt;
var
a,b,c: integer;
begin
clrscr;
writeln ('Vvedite dliny storon treugolnika ');
readln (a,b,c);
if (a=b) and (b=c)
then
writeln ('Treugolnik ravnostoronniy ')
else
if ((a=b) or (b=c) or (a=c)) and ((a<(b+c)) and (b<(a+c)) and (c<(a+b)))
then
writeln ('Treugolnik ravnobedrenniy ')
else
if ((a<>b) and (a<>c) and (b<>c)) and ((a<(b+c)) and (b<(a+c)) and (c<(a+b))) and not ((sqr(a)+sqr(b)=sqr©) or (sqr(b)+sqr©=sqr(a)) or (sqr(a)+sqr©=sqr(b)))
then
writeln ('Treugolnik raznostoronniy ')
else
if (sqr(a)+sqr(b)=sqr©) or (sqr(b)+sqr©=sqr(a)) or (sqr(a)+sqr©=sqr(b))
then
writeln ('Treugolnik prjamougolniy ')
else
writeln ('Dannogo treugolnika ne sushestvuet ');
readln;
end.