enter image description here enter image description here

program lr3_p1; var x,y,yk,e : double; n,i : integer; begin writeln('Введите x[0.7;2.2]= '); read(x); writeln('Введите n= '); read(n); yk := x; y := exp((1/3) * ln(x)); i := 1; while i <= n do begin yk := yk + 1/3 * (x/sqr(yk) - yk); e := abs(y - yk); writeln('y',i,'=',yk:5,' e=',e:5); i := i + 1; end; end.
  • i: = i + 1 can be replaced by inc (i); - goodalien
  • one
    Insert the task not with a picture, but with text - Grundy
  • one
    And why while and not the usual for here? - pavel

0