Информатика: Cоставьте программу для решения уравнения x^2+kx+b 0

dminaeva

13.03.2021 19:28

Информатика

Есть ответ 👍

Cоставьте программу для решения уравнения x^2+kx+b> 0

137

296

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

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

alexkis228vk

Информатика

4,5(70 оценок)

Var a, k, b, d, x, x1, x2 : real; begin writeln ('введите коэффициенты уравнения (a, k, b) '); readln(a,k,b); if a=0 then if k=0 then if b=0 then writeln('x - любое число') else writeln('корней нет! ') else begin x: =-b/k; writeln('x=',x: 8: 3); end else begin d: =k*k-4*a*b; if d< 0 then writeln ('корней нет! ') else begin x1: =(-k+sqrt(d))/2/a; x2: =(-k-sqrt(d))/2/a; writeln ('x1=', x1: 8: 3, ' x2=',x2: 8: 3); end; end; end.