требовалось написать программу которая решает уравнение а|x|=b относительно х для любых...

Question

требовалось написать программу которая решает уравнение а|x|=b относительно х для любых чисел а и b, введенных с клавиатуры

Answer 1

Var a,b:integer; x:real;
begin
readln (a,b);
x:=abs(b/a);
writeln (x:0:2);
end.

АБС это модуль, но я могу и ошибаться, тогда
var a,b:integer; x:real;
begin
readln (a,b);
If a<0 then a:=a*(-1);<br>If b<0 then b:=b*(-1);<br>x:=abs(b/a);
writeln (x:0:2);
end.