определить вид треугольника при условии его существования (в ABC паскале)
Answers & Comments
srzontmp
Var a,b,c: real; s: string; begin write('длины сторон через пробел: '); readln(a,b,c); if (a+b>c) and (a+c>b) and (c+b>a) then begin if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(b)+sqr(c)=sqr(a)) then s:='треугольник прямоугольный' else if (sqr(a)+sqr(b)>sqr(c)) and (sqr(b)+sqr(c)>sqr(a)) and (sqr(a)+sqr(c)>sqr(b)) then s:='треугольник остроугольный' else s:='треугольник тупоугольный'; writeln(s); end else writeln('треугольник составить нельзя'); end.
Answers & Comments
s: string;
begin
write('длины сторон через пробел: ');
readln(a,b,c);
if (a+b>c) and (a+c>b) and (c+b>a) then
begin
if (sqr(a)+sqr(b)=sqr(c)) or
(sqr(a)+sqr(c)=sqr(b)) or
(sqr(b)+sqr(c)=sqr(a)) then
s:='треугольник прямоугольный'
else
if (sqr(a)+sqr(b)>sqr(c)) and
(sqr(b)+sqr(c)>sqr(a)) and
(sqr(a)+sqr(c)>sqr(b)) then
s:='треугольник остроугольный'
else s:='треугольник тупоугольный';
writeln(s);
end
else writeln('треугольник составить нельзя');
end.