Вводятся 5 чисел: a, b, c, d и e. найдите все целые решения уравнения ( ax3 + bx2 + cx + d ) / ( x - e ) = 0 на отрезке [0,1000] и выведите их количество. примеры входные данные 2 4 9 1 5 выходные данные 0

172

413

Посмотреть ответы 3

Ответы на вопрос:

Aznabaev09

Информатика

4,6(85 оценок)

//когда глеб расстроился //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

ktoEto123123213

Информатика

4,4(68 оценок)

//pascal const lower = 0; //нижняя граница upper = 1000; //верхняя граница var a, b, c, d, e, x, cnt: integer; begin read(a, b, c, d, e); for x : = lower to upper do if (a*x*x*x + b*x*x + c*x + d = 0) and (x < > e) then inc(cnt); writeln(cnt); end. пример ввода: 3 4 2 0 1 пример вывода: 1

Rudisaleh

Информатика

4,7(46 оценок)

Объяснение:

осыны жазаып ал дурыс жауап

100%пайыз

жане лайк басындар.

Сымсыз технологиялар түрлерін ата? Wi-F, Bluetooth, LinuxWi-Fi,WIMAX, BluetoothWi-Fi, WIMAX, iOS

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.