Var a,b:integer;
x:real;
begin
writeln (введи числа a и b);
readln (a,b);
if a=0 then writeln (No)
else begin
x:=b/(-1*a);
writeln (x:5:2);
end;
end.
Я не представляю чисто с математической точки зрения, как тут может быть несколько вариантов, а уж тем более множество. Если приведешь примеры, я перепишу код
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.