Question

Написать программу на языке Паскаль

Answer 1

Var x:integer;

Begin

x:=-1;

while x<=12 do

begin

writeln('x = ',x,'; y = ',(4*x*x*x*x+cos(x)-5)/(6*x*x*x+2));

x:=x+0,4;

end;

End.