<span>program gt; var x1,x2,dx,y:real; begin readln(x1,x2,dx); while x1<=x2 do begin y:=(x1-5)/(cos(x1*3.14/180)); writeln(x1,' ',y:1:4); x1:=x1+dx; end; end. <span>Это вторая задача.А теперь про первую. Она такая же как это но y= пиши что там в условии сказано и всё</span></span>