составьте, пожалуйста, программу в pascal. Created by Русалина21. informatika-ru

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

August 2021 1 11 Report

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

444ерор444 Program z1;
var a,b,x:integer;
begin
readln(a,b);
x:=(-b)/a;
writeln('x=',x);
end.

1 votes Thanks 2

Русалина21 А тут нужно условие или нет?

444ерор444 можно добавить

444ерор444 ...

444ерор444 ща

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

Русалина21 Спасибо большое