Написать программу на языке Паскаль для решения уравнения kx+b=0

Предыдущий
вопрос Следующий
вопрос

Программа на языке Паскаль:

program SolveEquation;
var
k, b, x: real;
begin
writeln('Enter the value of k:');
readln(k);
writeln('Enter the value of b:');
readln(b);
if k <> 0 then
begin
x := -b / k;
writeln('The solution is x = ', x:0:2);
end
else
writeln('This equation has no solution (k cannot be zero).');
readln;
end.

Эта программа запрашивает у пользователя значения коэффициентов k и b уравнения kx + b = 0, а затем находит и выводит значение x, являющееся решением этого уравнения. Если коэффициент k равен нулю, программа сообщит пользователю, что решения не существует.