1.hãy mô tả thuật toán và viết chương trình giải phương trình bật nhất ax+b=0

(VCT được nhưng không biết MT sao cho hợp lí)

program ct;

uses crt;

  var a, b: integer;

begin

            clrscr;

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

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

            if (a=0) and (b=0) then write(‘Phuong trinh vo so nghiem’);

            if (a=0) and (b<>0) then write(‘Phuong trinh vo nghiem’);

            if a<>0 then write(‘Phuong trinh co nghiem: x = ‘, -b/a);

            readln

end.