Составить программу в паскале! 9 класс! ! написать программу, по длинам сторон распознающую среди всех треугольников abc прямоугольные. если таких нет, то вычислить величину угла с.

const radian =  57.295779513;   //сколько градусов в одном радиане

var 

  a, b, c: real;   //стороны, лежащие против углов a, b и c соответственно

begin

  writeln('введите 3 стороны треугольника в следующем порядке: a, b, c');

  readln(a, b, c);

  if (sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a) + sqr(c)) or (sqr(c) = sqr(a) + sqr(b)) then writeln('треугольник abc - прямоугольный')   {если хотя бы для одной из сторон выполняется теорема пифагора, то данный треугольник прямоугольный}

  else writeln('угол c равен: ', arccos((sqr(a) + sqr(b) - sqr(c)) / (2 * a * b)) * radian, ' градусов');   {выражаем из теоремы косинусов косинус угла c, берем arccos от него и умножаем получившееся значение на количество градусов в радиане, чтобы получить ответ в градусах}

end.

пользоваться компилятором pascal abc.net, потому что это единственный компилятор из всех известных мне, который поддерживает функцию arccos.

если будут вопросы, спрашивай.

uses crt; var a,b,c,min: integer; beginwriteln('введи три числа: '); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln('наименьшее из этих чисел:   ',min); readln; end.