REM
DIM EPS,N,Y,YN,A(1 TO 8),Z(1 TO 8)
INPUT "EPS";EPS
DATA -0.5,-0.25,0,1,0.6,0.8,1.7.2.9
N=1:Y=0
DO
YN=ABS(XN*LN(XN))/((1+N)^3)
Y=Y+YN
N=N+1
LOOP WHILE ABS(YN)>EPS
PRINT "Y=";Y
FOR I=1 TO 8
IF A(I)>=0.1 AND A(I)<0.6 THEN
Z(I)=SQR(ABS(A*Y(I)-3))
ELSE
Z(I)=A*Y(I)+2
END IF
PRINT "Z";I;"=";Z(I)
NEXT I
END

Когда я подставляю значения EPS,программа выдаем мне все время одинаковые значения.Но такого ведь не может быть.Значит что-то не правильно в программе.Но что?