Question

Решить нужно задачу №16
На одном фото условие, на другом - задача
Помогите пж

Answer 1

program ex16;
var
   a,b,x,z,alpha:real;
begin
   Write('a,b=');
   Read(a,b);
   x:=(a+b)/2;
   z:=(1+x)/(1+(1+x)/x);
   alpha:=a*x*x-cos(b*x)+z/2;
   Writeln('x=',x,' z=',z,' alpha=',alpha)
end.

Контрольное решение
Turbo Pascal  Version 7.0  Copyright (c) 1983,92 Borland International
a,b=0.58 -2.4
x=-9.1000000000E-01 z= 9.9878048780E-02 alpha= 1.1057274246E+00