A1=b; Ak=(Ak-1+1)/(1-sin2k), k=2, 3, … .
Найдите первый неотрицательный член последовательности.
в Visual basic
А = b
k=2
while(A < 0){
A = (A+1)/(1–sin2k)
k++;
}
Цикл завершится как только найдется первый неотрицательный член.