Elena , ответ добавлен 02.03.2018 в 18:49

Var a,b: real;

begin
readln(a, b);
if a=0 then   if b = 0 then writeln ('x - любое значение') 
else writeln ('x1 = 0');

if a>0 then  if (b>=0) then writeln ('x1 = 0') 
else writeln('x1=0 ', 'x2=',-sqrt(-b/a),' ', 'x3=',sqrt(-b/a));

if a<0 then  if (b<=0) then writeln ('x1 = 0') 
else writeln('x1=0 ', 'x2=',-sqrt(b/-a),' ', 'x3=',sqrt(b/-a))

end.

 0