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.