Помогите пожалуйста в qbasic надо программу составить)

Question

Помогите пожалуйста в qbasic надо программу составить)

---

Answer 1

Cls
pi=3.141592
for x=0 to 180 step 10
y=x * pi /180
print x, sin(y), cos(y), tan(y)
if  tan(y)<>0 then print 1/tan(y) else print "не существ"
next
end