Viết trương trình pascal bx + c = 0 SGK tin lớp 8 tập 1 trang 39. #chép mạng mình biết đấy 👻

1 câu trả lời

program PT_bac_1;
uses crt;
var b,c:real;
Begin
    clrscr;
    write('b = '); readln(b);
    write('c = '); readln(c);
    if b=0 then
        if c=0 then
           write('PT co vo so nghiem')
        else write('PT vo nghiem')
    else write('PT co nghiem x = ',-c/b:2:2);
    readln
End.