Заданы длины 3 сторон треугольника a, b, c. Определить, является ли треугольник прямоугольным, и вывести соответствующие сообщения. Составьте блок схему плз
Answers & Comments
TaTaPmember
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 Прямоугольный
Answers & Comments
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
Прямоугольный