Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Определить вид треугольника при условии его существования (в ABC паскале)

Ответ оставил Гость

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.