begin // Вводим значения для k и b write('Введите значение для k: '); readln(k);
write('Введите значение для b: '); readln(b);
// Решаем уравнение kx + b = 0 if k <> 0 then begin x := -b / k; writeln('Решение уравнения ', k:0:2, 'x + ', b:0:2, ' = 0: x = ', x:0:2); end else begin if b = 0 then writeln('Решение уравнения 0x = 0: любое значение x') else writeln('Уравнение не имеет решения'); end;
program EquationSolver;
var
k, b, x: real;
begin
// Вводим значения для k и b
write('Введите значение для k: ');
readln(k);
write('Введите значение для b: ');
readln(b);
// Решаем уравнение kx + b = 0
if k <> 0 then
begin
x := -b / k;
writeln('Решение уравнения ', k:0:2, 'x + ', b:0:2, ' = 0: x = ', x:0:2);
end
else
begin
if b = 0 then
writeln('Решение уравнения 0x = 0: любое значение x')
else
writeln('Уравнение не имеет решения');
end;
end.