Question

Определить, является ли треугольник со сторонами a,b,c прямоугольным. Если нет, то вычислить больший угол.
Надо срочно и на паскале

Answer 1

Program abc;
Var a,b,c,i,n:integer;
begin
writeln('Введите А : ');
read(a);
writeln('Введите B : );
read(b);
writeln('Введите C : ');
read(c);
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c = a*a+b*b) then writeln( 'Треугольник прямоугольный') else
if (a>b) and (a>c) then writeln('Больший угол образован сторонами b и c') else
 if (c>a) and (c>b) then writeln('Больший угол образован сторонами b и a')  else
 if (b>a) and (b>c) then writeln('Больший угол образован сторонами a и c');
 end.