Question

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

Answer 1

var a,b:integer;
begin
readln(a,b);
if a+b<180 then
 begin
 write('Да. ');
 if (a=90)or(b=90)or(a+b=90)
  then writeln('Прямоугольный')
  else writeln('Не прямоугольный');
 end
else writeln('Нет');
end.

Пример:
30 60
Да. Прямоугольный