{* Задача130 *}

REM basic

' Вычислить значение функции

 


10 {Вычислить значение функции 
}20 DATA 1.369,1.18,2.936,3.15 
30 READ X 
40 L=LOG(X)/LOG(10) 
50 Y=(SQR(X)+X^2*L)/(2*X*L^2) 
60 PRINT "X=";X,"Y=";Y 
70 GoTo 30 
80 End