Viết chương trình tìm x của: ax+b=0(a khác 0) giá trị của a,b nhập từ bàn phím.

program timx;

uses crt;

var a,b: integer;

x: real

begin

writeln(‘Ban hay nhap a,b’);

write(‘a=’); readln(a);

write(‘b=’); readln(b);

x:=(0-b)/2;

writeln(‘ gia tri x phai tim la’,x:0:2);

readln;

end.

writeln(‘Gia tri x phai tim la’