Для радиуса описанной окружности имеется соотношение
// PascalABC.NET 3.2, сборка 1367 от 20.12.2016// Внимание! Если программа не работает, обновите версию!var a,b,c,R,dA,dB,dC:real;begin Writeln('Введите углы A,B в градусах и радиус R'); Read(dA,dB,R); dC:=180-dA-dB; a:=2*R*sin(dA*Pi/180); b:=2*R*sin(dB*Pi/180); c:=2*R*sin(dC*Pi/180); Writeln('Угол C: ',dC:0:2); Writeln('a=',a:0:5); Writeln('b=',b:0:5); Writeln('c=',c:0:5)end.
ПримерВведите углы A,B в градусах и радиус R30 70 50.0Угол C: 80.00a=50.00000b=93.96926c=98.48078