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
