Question

составьте, пожалуйста, программу в pascal

Answer 1

program z1;
var a,b,x:integer;
begin
readln(a,b);
x:=(-b)/a;
writeln('x=',x);
end.

Answer 2

можно добавить

Answer 3

...

Answer 4

ща

Answer 5

if a<> then (все что после readln и до end) else writeln('не удовлетворяет условию'); end.

Answer 6

Спасибо большое