Решить уравнение Ах+В=0 , если это возможно. Решить ** языке Pascal, развервляющийся...

Question

Решить уравнение Ах+В=0 , если это возможно. Решить на языке Pascal, развервляющийся алгоритм. решить надо до 11:00 по МСК, после не принимаю

Answer 1

uses crt;
var a,b:integer;
x:real;
begin
read(a,b);
if (a=0) or (b=0) then begin write('Error'); exit; end else x:=-b/a;
write('Otvet: ',x);
end.