Question

Решить через Pascal ABC y=lnx+6x^3 cos(x+9)

Answer 1

var x,y:real;

begin
  x:=1.0;
  while x<=10 do begin
    y:=ln(x)+6*x*x*x*cos(x+9);
    writeln(x,' ',y);
    x:=x+1;
  end;

end.