Заменить цикл for на цикл repeat! ! program primer1; uses crt; const a=pi/4; b=4/pi; m=20; var f,h,x: real; i: integer; begin clrscr; h: =(b-a)/m; for i: =0 to m do begin x: =a+i*h; f: =cos (1/x); writeln ('x=', x: 6: 3,',f(x)=',f: 6: 3); end; end.

Arina4dyuzhova    2   19.06.2019 00:50    2