Составить программу с ветвящейся структурой, используя условный оператор if для...

Question

Составить программу с ветвящейся структурой, используя условный оператор if для квадратного уравнения вида ax2+bx+c=0

Answer 1

Var a,b,c,d:real;
begin
readln(a,b,c);
d:=sqr(b)-4*a*c;
if d<0 then writeln('Net kornei');<br>if d=0 then writeln('x=',-b/(2*a));
if d>0 then writeln('x1=', (-b-sqrt(d))/(2*a),' x2=',(-b+sqrt(d))/(2*a));
end.

Answer 2

Var a,b,c,x,x1,x2:real;
begin
writeln('....');
readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln('корней нет');<br>if d=0 then x:=-b/2/a;
if d>0 then;
begin;
x1=:(-b+sqrt(d))/2/a;
x2:=(-2-sqrt(d))/2/a;
writeln('x1=',x1:10:2);
writeln('x2=',x2:10:2);
end;
end