Вводятся 5 чисел: a, b, c, d и e. Найдите все целые решения уравнения ( ax3 + bx2 + cx + d ) / ( x - e ) = 0 на отрезке [0,1000] и выведите их количество.
a = int(input())
b = int(input())
c = int(input())
d = int(input())
e = int(input())
s = 0
for i in range (0, 1000):
if (a*i*i*i+ b*i*i+ c*i+ d)/(i-e) == 0:
s = s+1
print(s)
На выходе выдаёт ошибку: division by zero

ответ: если e == i, i-e = 0 и тем самым делить на это нельзя, поэтому тебе нужно сделать проверку на то, что e != i

Код:

a = int(input())

b = int(input())

c = int(input())

d = int(input())

e = int(input())

s = 0

for i in range(0, 1000):

   if i != e:

       if (a * i * i * i + b * i * i + c * i + d) / (i - e) == 0:

           s = s + 1

print(s)

Const n=20; var a: array[1..n]of integer; i,b,k,c,f,g,h: integer; beginfor i: =1 to n do a[i]: =random(70)-20; for i: =1 to n dowrite(a[i],' '); writeln; for i: =1 to n do beginif (a[i] mod 5 = 0) and (a[i] mod 10< > 0) or (a[i]=50) then beginb: =i; for b: =i to (n-1) doa[i]: =a[i+1]; end; end; for i: =1 to n dowrite(a[i],' '); write('введите к '); read(k); for i: =1 to n do beginif a[i] mod i = 0 then beginc: =i; for i: =n downto c+1 do begina[i]: =a[i-1]; a[c+1]: =k; end; end; end; for i: =1 to n dowrite(a[i],' '); writeln; f: =0; g: =0; for i: =n downto 1 do beginif (a[i]> 0) then f: =i; end; if a[f]=0 then write('нет положительных '); for i: =n downto 1 do beginif (a[i]< 0) then g: =i; end; if (a[g]=0) then write('нет отрицательных '); if (a[f]< > 0) and (a[g]< > 0) then beginh: =a[f]; a[f]: =a[g]; a[g]: =h; end; for i: =1 to n dowrite(a[i],' '); writeln; end.