program Solution;vara, b: Integer;x: Real;beginwrite('Enter the value of a: ');readln(a);write('Enter the value of b: ');readln(b);
x := -b / a;
writeln('The solution to the equation ', a, 'x + ', b, ' = 0 is x = ', x:0:2);end.
В этой программе сначала пользователь вводит значения a и b, затем программа находит решение уравнения ax + b = 0 и выводит его на экран.
program Solution;
var
a, b: Integer;
x: Real;
begin
write('Enter the value of a: ');
readln(a);
write('Enter the value of b: ');
readln(b);
x := -b / a;
writeln('The solution to the equation ', a, 'x + ', b, ' = 0 is x = ', x:0:2);
end.
В этой программе сначала пользователь вводит значения a и b, затем программа находит решение уравнения ax + b = 0 и выводит его на экран.