Ответы на вопрос:
Var a, b, c, d, x, x1, x2 : real; begin writeln ('введите коэффициенты уравнения (a, b, c) '); readln(a,b,c); if a=0 then if b=0 then if c=0 then writeln('x - любое число') else writeln('корней нет! ') else begin x: =-c/b; writeln('x=',x: 8: 3); end else begin d: =b*b-4*a*c; if d< 0 then writeln ('корней нет! ') else begin x1: =(-b+sqrt(d))/2/a; x2: =(-b-sqrt(d))/2/a; writeln ('x1=', x1: 8: 3, ' x2=',x2: 8: 3); end; end; end.
Популярно: Информатика
-
Lraaq14.02.2022 08:03
-
G8930.09.2022 12:12
-
IvanIvan77729.08.2022 09:30
-
Михаилович22328.08.2022 21:54
-
tikhonoffpawel20.12.2021 23:14
-
Алинаme12.08.2021 06:52
-
marinka71302.08.2021 06:16
-
Котан11207.03.2022 03:10
-
f0xses22.05.2021 11:10
-
1user10.04.2022 06:31