Tìm x của phương trình a có dạng tổng quát ax + b = 0

1 câu trả lời

program sksk;
uses crt;
var a, b : real;
begin
clrscr;
write('nhap he so a :');readln(a);
write('nhap he so b :');readln(b);
if (a=0) and (b=0) then writeln('phuong trinh co vo so nghiem');
if (a=0) and (b<>0) then writeln('phuong trinh vo nghiem');
if (a<>0) then writeln('nghiem cua phuong trinh la :', ((-b)/a):8:2);
readln
end.