Question

Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник, и если да, то будет ли он прямоугольным.

Answer 1

uses crt;
var a,b:real;
begin
 writeln('Vvedite ugli a,b ');
 readln(a,b);
 if a+b>180 then
  writeln('Takogo treugolnika ne sushestvuet ')
    else
      begin
        writeln('Takoy treugolnik  sushestvue');
            if (a=90)or(b=90)or(180-a-b=90) then writeln(' on pryamougolniy')
               else
                 writeln(' on ne pryamougolniy');
      end;
readln;
end