Паскаль, цикл.

[hicmoon]

Доброго времени суток. Очень прошу помочь с заданием.

[Dvoishnik]

в чем сложность?

[Arigato]

Вот вам функции:

function arcsin (x: real): real;
begin
  arcsin:=arctan(x/Sqrt(1-sqr(x)));
end;

function sqrt3(x: real): real;
begin
  sqrt3:=exp(ln(x)/3);
end;

function z(x,a: real): real;
var
  m,min: real;
begin
  min:=sqrt(sin(a/x));
  m:=sin(a)/x;
  if m<min then min:=m;
  m:=sqrt3(a)*arcsin(x);
  if m<min then min:=m;
  z:=min;
end;

Цикл сами организуйте.

[hicmoon]

Сообщение от Arigato

Цикл сами организуйте.

Надеюсь.
Спасибо в любом случае.