Помогите,пожалуйста. в паскалеНеобходимо разработать работоспособную программу по...

Question

Помогите,пожалуйста. в паскалеНеобходимо разработать работоспособную программу по заданному варианту. Всепеременные должны вводиться с клавиатуры.

---

Answer 1

Program Z;
var a, xn, xk, dx, x, z, ans1, ans2, ans3 : real;
begin
  read(a, xn, xk, dx);
  ans1 := 0;
  ans2 := 1;
  ans3 := 0;
  x := xn;
  while(x <= xk) do begin<br>    z := (ln(a*x)+1)/(a+sqrt(a*x));
    ans1 := ans1 + z;
    if (z<0) then<br>      ans2 := ans2 * z;
    if (z<0.5) then<br>       ans3 := ans3 + 1;
    x := x + dx;
  end;
  write(ans1, ' ', ans2, ' ', ans3);
end.