Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt; Var a,b,x: real; BEGIN Clrscr; Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0');

Writeln('------------------------------------------------------------');

Writeln(‘Nhap a = ‘);

readln(a);

Writeln(‘Nhap b= ‘);

readln(b);

If a=0 then If(b=0) then Writeln(' Phuong trinh co vo so nghiem')

Else writeln(' Phuong tring vo nghiem')

Else Writeln('Phuong trinh co nghiem x=',-b/a: 4: 2);

Readln;

END.

Bài 13:

program kaito;

uses crt;

var a, b: integer;

      x: real;

begin

   clrscr;

   write('Nhap a: '); readln(a);

   write('Nhap b: '); readln(b);

   if a=0 then writeln('phuong trinh vo nghiem') else

   if a=b then writeln('phuong trinh vo so nghiem) else

   begin   

      x:=-b/a;

      writeln('Phuong trinh co mot nghiem: ',x);

   end;

   readln

end.

CHÚC BẠN HỌC TỐT!!!