Nhập Hệ Số a, b bất kì từ bàn phím. Hãy đưa ra nghiệm của phương trình ax + b >0

1 câu trả lời

Var 

a,b:Longint;

Begin

   Writeln('nhap a,b=');readln(a,b);

   If (a>0) and (b>0) then writeln(' phuong trinh co nghiem x thuoc R');

   If (a>0) and (b<>0) then writeln('phuong trinh do vo nghiem') else write('nghiem x=',-b/a);
Readln;

End.

  .

Câu hỏi trong lớp Xem thêm