Question

Вычислить в Паскаль:

Answer 1

Ответ:

Объяснение:

program abc;

var x,y : integer;

function power (a, n : integer):integer;

var res: integer;

begin

res := 1;

while (n > 0) do begin

 if (n and 1 = 1) then res := res * a;

 a := a + a;

 n := n shr 1;

end;

power := res;

end;

begin

write('x');

read(x);

writeln('1: y=', x-sqr(x)/3+power(x,6)/4);

writeln('2: y=', power(3,(-x))+cos(x)-sin(sqr(x)));

writeln('3: y=', (x*x*x+9*x+12)/(sqr(x)-6*x+15));

writeln('4: y=', x+sin(2*x)+abs(power(x,3)+power(x,5)));

end.