Nhập a,b nguyên. Hãy giải và biện luận phương trình ax + b = 0
Nếu vô nghiệm thông báo none
Nếu vô nghiệm thông báo multiple
Nếu có nghiệm, đưa ra dạng x = -b/a
Mình đang cần gấp ạ, bạn nào giúp mình với ạ
Nhập a,b nguyên. Hãy giải và biện luận phương trình ax + b = 0
Nếu vô nghiệm thông báo none
Nếu vô nghiệm thông báo multiple
Nếu có nghiệm, đưa ra dạng x = -b/a
Mình đang cần gấp ạ, bạn nào giúp mình với ạ
Program NhatNgu;
Uses crt;
Var a,b: extended;
Begin
Clrscr;
Write(‘Nhap a: ‘); Readln(a);
Write(‘Nhap b: ‘); Readln(b);
If (a=0) then
If (b=0) then Write(‘Multiple’)
Else Write(‘None’)
Else Write(‘X = ‘,-b/a:0:2);
Readln
End.