Программирование Pascal abc net Помогите решить задачу

Question

Программирование Pascal abc net Помогите решить задачу

йцуыфвячс Ученик (111), на голосовании 2 недели назад

кто разбирается в pascal abc net помогите решить задачу

нарисовал как мог, уж простите

условие сказать не могу, мне самому его не сказали, просто дали огрызок задачи
все необходимые детали задачи находятся на фото

Answer 1

 program tabU; 
var 
  x,y,z,u,mn : Real; 

const 
  x1 = 0; 
  x2 = 2; 
  h = 0.1; 
   
begin 
  Write('y='); 
  ReadLn(y); 
  Write('z='); 
  ReadLn(z); 
  WriteLn('-----------------'); 
  WriteLn('  x |  u(x,y,z)  '); 
  WriteLn('-----------------'); 
   
  x := x1; 
  repeat 
    mn := min( (x+y+z)/3, x*y*z ); 
    u := mn / (1+mn*mn); 
    WriteLn( x:3, ' | ', u ); 
    x := x + h;     
  until x > x2 + h/2;    
   
  WriteLn('-----------------');   
end.