Нужно, составьте программу на языке паскаль для нахождения радиуса описанной окружности вокруг треугольника, если известны стороны треугольника.

247

347

Посмотреть ответы 2

Ответы на вопрос:

Sofka1441

Информатика

4,4(66 оценок)

Var a,b,c,p: real; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); if (a< b+c)and(b< c+a)and(c< a+b) then begin p: =(a+b+c)/2; writeln('r = ',a*b*c/sqrt(p*(p-a)*(p-b)*(p-; end else writeln('треугольник не существует') end.