Question

дано уравнение ax+b=0. Найти решение этого уравнения или сообщить,что решения не существует.

Answer 1

VAR a,b:integer;
x:real;
begin
writeln(' a=');
readln(a);
writeln ('b=');
readln (b);
x:=-b/a;
if a =0 then writeln('uravnenie korney ne imeet') 
else
writeln('korni uravneniya=',x);
readln;
end.