составить программу решения уравнения ax^2+bx=0 (a,b - вводится с клавиатуры)
Answers & Comments
HRAshton var a, b: real; begin readln(a, b); writeln('X_1 = 0'); if (a <> 0) then writeln('X_2 = ', -b / a) else if (b = 0) then writeln('Х любое'); end.
Answers & Comments
var
a, b: real;
begin
readln(a, b);
writeln('X_1 = 0');
if (a <> 0) then
writeln('X_2 = ', -b / a)
else
if (b = 0) then
writeln('Х любое');
end.