Quảng cáo
1 câu trả lời 330
program bac_hai;
uses crt;
var a, b, c, d : real;
begin
clrscr;
write('Nhap a, b, c (a <> 0): ');
readln(a, b, c);
d := b * b - 4 * a * c;
if d > 0 then
begin
writeln('x1 = ', (-b + sqrt(d)) / (2 * a) : 0 : 2);
writeln('x2 = ', (-b - sqrt(d)) / (2 * a) : 0 : 2);
end;
if d = 0 then write('x1 = x2 = ', -b / (2 * a) : 0 : 2);
if d < 0 then write('Phuong trinh vo nghiem');
readln
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86370
Gửi báo cáo thành công!
