Question

Заданы длины 3 сторон треугольника a, b, c. Определить, является ли треугольник прямоугольным, и вывести соответствующие сообщения. Составьте блок схему плз

Answer 1

Program asd;
Var
  a,b,c:integer;
Begin
  Writeln('Введите стороны треугольника: ');
  Write('a=');
  Readln(a);
  Write('b=');
  Readln(b);
  Write('c=');
  Readln(c);
  if (c>a) and (c>b) and (c=sqrt(sqr(a)+sqr(b))) then Writeln('Прямоугольный') else
   if (a>c) and (a>b) and (a=sqrt(sqr(c)+sqr(b))) then Writeln('Прямоугольный') else
    if (b>a) and (b>c) and (b=sqrt(sqr(a)+sqr(c))) then Writeln('Прямоугольный') else      Writeln('Не прямоугольный');
End.
Блок-схема прикреплена ниже.
Тестовые значения:
Введите стороны треугольника:
 a=3
b=4
c=5
Прямоугольный