Решить через Pascal ABC y=lnx+6x^3 cos(x+9)
Var x,y:real; begin Write('x='); Read(x); y:=Ln(x)+6*x*x*x+Cos(x+9); Writeln('y = ',y) end.
добавте пожалуйста строку для сокращения ответа , до сотых после запятой
Исправьте на Writeln('y = ',y:0:2)
спасибо
Пожалуйста
Var x,y:real; begin x:=1.0; while x<=10 do begin<br> y:=ln(x)+6*x*x*x*cos(x+9); writeln(x,' ',y); x:=x+1; end; end.
можно пожалуйста по срокам
строками
не понимаю, что по строкам?
А можно вопрос? Откуда следует, что надо делать табуляцию функции от 1 до 10?
условие задачи неясное, просто "решите"
А... Вы фантазию проявили, понятно)))