Lập trình kết luận nghiệm của pt ax+b=0

1 câu trả lời

program CT_bai_tap; 
uses crt; 
var a,b:real; 
x:real; 
begin 
write( ' ban hay nhap so a: '); 
read(a); 
write(' ban hay nhap so b: '); 
read(b); 
IF a<> 0 THEN writeln ( ' nghiệm của phương trình là:', -b/a) 
else 
IF b=0 THEN writeln ( ' phương trình có vô số nghiệm'); 
else write(' phương trình vô nghiệm'); 
readln; 

end 

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