Сделать в виде for и while program gl; uses crt; var x,y,dx: real; begin clrscr; x: =-1; dx: =0.1; repeat y: =3*sin(x)+cos(2*x); writeln ('x=',x: 7: 5,' y=',y: 7: 5); x: =x+dx; until(x> 1); end.

СашаСтрела    2   15.04.2019 10:19    1