готово
Объяснение:
program solve;
var
a,b,x: real;
begin
Write('Введите a и b через пробел:');
ReadLn(a, b);
if a <> 0 then
x := -b / a;
WriteLn('Значение x = ', x);
end
else
if b <> 0 then
WriteLn('Корней нет')
WriteLn('Любое число');
end;
end.
готово
Объяснение:
program solve;
var
a,b,x: real;
begin
Write('Введите a и b через пробел:');
ReadLn(a, b);
if a <> 0 then
begin
x := -b / a;
WriteLn('Значение x = ', x);
end
else
begin
if b <> 0 then
WriteLn('Корней нет')
else
WriteLn('Любое число');
end;
end.