Oпределить по двум углам будет ли треугольник прямоугольным — Pascal(Паскаль)

{Oпределить по двум углам будет ли тр-к прямоугольным}
program bo;

const pi=180;
var a,b:real;
    p,q:boolean;
begin
 writeln('Задайте 2 угла в треуг-ке:');
 readln(a,b);
 q:=false;
 begin
  if ((pi-a-b)>0) then
   p:=true;
  if ((pi-a-b)=pi/2) or (a=pi/2)or(b=pi/2) then
   q:=true
  else
   if ((pi-a-b)<=0) then
    p:=false;
   if p then
    writeln('Такой треугольник существует')
   else
    writeln('Такой треугольник не существует');
   if p then
    if q then
     writeln('и он прямоугольный')
 end
end.

Leave a Comment