Question

ПОМОГИТЕ ПОЖАЛУЙСТА

Answer 1

Var
  x,y,z:real;
begin
  Write('  X  ');
  x:=1;
  while x<=3 do begin Write(x:8:5); x:=x+0.5 end;
  Writeln;
  z:=0.3;
  while z<=1.5 do begin
    Write('z=',z:3:1);
    x:=1;
    while x<=3 do begin
      y:=exp(0.2*ln(exp(2/3-z)))/sqrt(exp(z*ln(x))+exp(x*ln(z)));
      Write(y:8:5);
      x:=x+0.5
    end;
    Writeln;
    z:=z+0.3
  end
end.

Результат выполнения программы:
  X   1.00000 1.50000 2.00000 2.50000 3.00000
z=0.3 0.94379 0.94610 0.93621 0.92082 0.90387
z=0.6 0.80118 0.76823 0.73996 0.71451 0.69128
z=0.9 0.69240 0.63011 0.58342 0.54653 0.51632
z=1.2 0.60599 0.52409 0.46493 0.41998 0.38448
z=1.5 0.53536 0.44161 0.37562 0.32682 0.28913