//когда глеб расстроился //pascal abc.net 3.1 сборка 1256 var a,b,c,d,e: real; procedure cube(a,b,c,d,e: real); var p,q,delta,phi,i: real; y: array[1..3] of real; begin p: =(3*a*c-sqr(b))/(3*sqr(a)); q: =(2*power(b,3)-9*a*b*c+27*sqr(a)*d)/(27*power(a,3)); delta: =power(q/2,2)+power(p/3,3); if delta< 0 then begin if q< 0 then phi: =arctan(sqrt(-delta)/(-q/2)); if q> 0 then phi: =arctan(sqrt(-delta)/(-q/2))+pi; if q=0 then phi: =pi/2; y[1]: =2*sqrt(-p/3)*cos(phi/3); y[2]: =2*sqrt(-p/3)*cos(phi/3+(2*pi)/3); y[3]: =2*sqrt(-p/3)*cos(phi/3+(4*pi)/3); var x: =seq(y[1]-b/(3*a),y[2]-b/(3*a),y[3]-b/(3*a)); write(x.where(x -> x< > e).where(x -> frac(x)=0).where(x -> x> =0).where(x -> x< =1000).distinct.count); end; if delta> 0 then begin var arsom: =range(0,1000).where(x-> (a*power(x,3)+b*x*x+c*x+d)/(x-e)=0); write(arsom.count); {мы не виноваты, паскаль не может в комплексные числа} end; if delta=0 then begin y[1]: =2*power(-q/2,1/3); y[2]: =-power(-q/2,1/3); var x: =seq(y[1]-b/(3*a),y[2]-b/(3*a)); write(x.where(x -> x< > e).where(x -> frac(x)=0).where(x -> x> =0).where(x -> x< =1000).distinct.count); end; end; procedure square(a,b,c,e: real); var d: real; begin d: =sqr(b)-4*a*c; if d< 0 then writeln('0'); if d> 0 then begin var x: =+sqrt(d))/(2*-sqrt(d))/(2*a)); write(x.where(x -> x< > e).where(x -> frac(x)=0).where(x -> x> =0).where(x -> x< =1000).distinct.count); end; if d=0 then begin var x: =arr(-b/(2*a)); write(x.where(x -> x< > e).where(x -> frac(x)=0).where(x -> x> =0).where(x -> x< =1000).distinct.count); end; end; procedure common(a,b,e: real); begin var x: =arr(-b/a); write(x.where(x -> x< > e).where(x -> frac(x)=0).where(x -> x> =0).where(x -> x< =1000).distinct.count); end; procedure awfulvar(e: real); begin if (e> =0) and (e< =1000) then writeln('1000') else writeln('1001'); end; procedure otherawfulvar(e: real); begin if e< > 0 then writeln('1') else writeln('0'); end; begin read(a,b,c,d,e); if (a< > 0) and (b< > 0) then cube(a,b,c,d,e); if (a=0) and (b< > 0) then square(b,c,d,e); if (a=0) and (b=0) and (c< > 0) and (d< > 0) then common(c,d,e); if (a=0) and (b=0) and (c=0) and (d=0) then awfulvar(e); if (a=0) and (b=0) and (c< > 0) and (d=0) then otherawfulvar(e); if (a=0) and (b=0) and (c=0) and (d< > 0) then writeln('0'); end. пример ввода: 1 1 1 1 1 пример вывода: 0
Спасибо
Популярные вопросы