Question

Помогите с решением в PascalABC. Тема РвЦ

Answer 1

Программа:

Pascal:

var

 x, y: real;

begin

 x := 3.0;

 while x <= 7.5 do begin

 x := x + 0.4;

 if x <= 4 then

   y := sin(2*x + 1)

 else if (x > 4) and (x <= 6) then

   y := 0.1 * x*x - sqrt(x)

 else if x > 6 then

   y := 3 * log(x);

 

 writeln(y);

 end;

end.