Входные данные вводятся 4 числа: a, b, c и d. решить для паскаля. выходные данные найдите все целые решения уравнения ax3 + bx2 + cx + d = 0 на отрезке [0,1000] и выведите их в порядке возрастания. если на данном отрезке нет ни одного решения, то ничего выводить не нужно.

154

219

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

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

manzer95

Информатика

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

Var a,b,c,d: real; x: longint; beginreadln(a,b,c,d); for x: =0 to 1000 do if abs(a*x*x*x+b*x*x+c*x+d)< =1e-7 then writeln(x); end.

1Алексей123451

Информатика

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

varb: array[1..100, 1..100] of real; i, j, n: integer; pr: real; flag: boolean; beginrandomize; write('n = '); readln(n); if n < 2 thenbeginwriteln('некорректный размер матрицы'); exit; end; for i : = 1 to n dobeginfor j : = 1 to n dobeginb[i, j] : = (random(101) - 50) / 10; write(b[i, j], ' '); end; writeln; end; pr : = 1; flag : = false; for i : = 2 to n dofor j : = 1 to i - 1 doif b[i, j] < 0 thenbeginflag : = true; pr : = pr * b[i, j]; end; if flag thenwriteln('pr = ', pr)elsewriteln('нет ни одно отрицательного элемента ниже главной диагонали'); readln; end.