На языке QBasik...хотя бы одно,пожалуйста

Question

На языке QBasik...хотя бы одно,пожалуйста

---

Answer 1

CLS
INPUT "a=", a
INPUT "b=", b
INPUT "C=", ugC
c = SQR(a * a + b * b - COS(ugC * 3.14 / 180))
S = a * b / 2 * SIN(ugC * 3.14 / 180)
R = a * b * c / 4 / S
PRINT "C="; c
PRINT "S="; S
PRINT "R="; R