Дано действительное число x. Вычислить выражение(пример на фото) program z3_23; uses crt; var i,k,z: integer; x,s,s1,s2:real; Be
Дано действительное число x. Вычислить выражение(пример на фото) program z3_23; uses crt; var i,k,z: integer; x,s,s1,s2:real; Begin ClrScr; Write('x='); Read(x); s1:=x; s2:=1;z:=1;k:=1; For i:=1 to 7 do begin s:=s+z*s1/s2; s1:=s1*x*x; s2:=s2*(k+1)*(k+2); z:=-z; k:=k+2; end; write('s=',s:5:6); Readkey; end. For i:=1 to 7 do-заменить на while вот это нужно