Программа для решения ур-ия ax+b=0

[Crish]

Помогите пожалуйста ещё раз))

[Alex Cones]

AX+B=0
AX=-B
X=-B/A

Ввод B,A
X:=-B/A
Вывод X

[Crish]

Сообщение от Alex Cones

AX+B=0
AX=-B
X=-B/A

Ввод B,A
X:=-B/A
Вывод X

Какое то математическое решение....

[Mr.Qwerty]

Составить программу для решения линейного уравнения ax+b=0 (a не равно 0)

Решение:

program p;
uses Crt; //объявление дополнительного модуля
var a,b:integer; r:real; //введение переменных
begin
ClrScr; //очистка экрана
Writeln('Введите a,b'); //запрос на ввод данных
Readln(a,b); //чтение данных
x:=(-b/a); //вычисление x
Writeln(x); //вывод решения
Readln;//ожидание действия
end;

[Hanickii]

Помоему такие задание не решают только самые ленивые!