Question

Задание №2. Условный оператор. 

Решить линейное уравнение ax = b. 

Answer 1

program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.