Ответы и объяснения

2012-11-25T10:57:25+04:00

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