Даю 70 баллов. 12 вариант. Помогите решить,не могу понять даже как это делать

Даю 70 баллов. 12 вариант. Помогите решить,не могу понять даже как это делать
Гость
Ответ(ы) на вопрос:
Гость
Var   x:real; begin   x:=-1.23;   while x<=6.23 do begin     if x<0 then       Writeln('X=',x:5:2,', логарифм определен только для X>0')     else       Writeln('X=',x:5:2,', Y=',5.3*sqrt(abs(x*x*x))+cos(ln(x)+12.6));     x:=x+0.95     end end. Результаты X=-1.23, логарифм определен только для X>0 X=-0.28, логарифм определен только для X>0 X= 0.67, Y=3.8400812285669 X= 1.62, Y=11.7979662317412 X= 2.57, Y=22.3951919304867 X= 3.52, Y=35.2768703313243 X= 4.47, Y=50.1281674989484 X= 5.42, Y=66.7243610613755
Не нашли ответ?
Ответить на вопрос
Похожие вопросы