Программа не запускается исправьте программу program lab1; var x,a,nx: integer; y: real; begin write ('введите x: '); read(x); write ('введите a: '); read(a); write ('введите nx: '); read(nx); if a< 1 then y: =sqr(nx)-7/(sqr(x)); if a=1 then y: =a*x*sqr(a*x)+sqrt7(x); if a> 1 then y: =ln(x+7)*(sqrt(x+a)); write('y = ',y); end.

зайка584    3   20.08.2019 01:50    1