1. Программа (в старом стиле):

var

x,y: real;

begin

x:=1;

while x<=2.3 do

begin

y:=power(x,3)/2.75+sqrt(x-1);

writeln(y);

x:=x+0.3

end

end.

Программа (в новом стиле):

begin

var x:=1.0;

while x<=2.3 do

begin

var y:=x**3/2.75+sqrt(x-1);

writeln(y);

x+=0.3

end

end.

Выводимый программой результат:

0.363636363636364

1.34663164841426

2.26405121469603

3.44286511623233

4.96744511501033

2. Программа (в старом стиле):

var

x,s: real;

begin

x:=-1;

while x<=1 do

begin

s:=s+x/2/cos(x);

x:=x+0.2

end;

write(s)

end.

Программа (в новом стиле):

begin

var (x,s):=(-1.0, 0.0);

while x<=1 do

begin

s+=x/2/cos(x);

x+=0.2

end;

write(s)

end.

Выводимый программой результат:

-1.11022302462516E-16

Ответ:

Объяснение:

begin

var x:=1.0;

while x<=2.3 do

begin

var y:=exp(ln(x)*3) / 2.75 + sqrt(x-1);

writeln(y);

x+=0.3

end

end.

Выводимый результат:

0.363636363636364

1.34663164841426

2.26405121469603

3.44286511623233

4.96744511501033

Это было первое задание!

2) begin

    var (x,s):=(-1.0, 0.0);

    while x<=1 do

    begin

    s+=x/2/cos(x);

    x+=0.2

    end;

    write(s)

    end.

Выводимый программой результат:

-1.11022302462516E-16