Mong mọi người giúp ạ
Viết chương trình nhập vào điểm của một học sinh sau đó đưa ra trung bình nếu điểm
tb>8: xếp loại giỏi
6,5 đến 7,9: xếp loại khá
4,4 đến 5,0: xếp loại trung bình
4,9 đến 3,5: xếp loại yếu
còn lại: xếp loại kém
Program NN;
Uses crt;
Var a,b,c,tbc: extended;
Begin
Clrscr;
Write(‘Nhap diem toan, van, anh: ‘); Readln(a,b,c);
tbc:=(a+b+c)/3;
If tbc>8 then Write(‘Gioi’)
Else If tbc>6.5 then Write(‘Kha’)
Else If tbc>5 then Write(‘TB’)
Else If tbc>3.5 then Write(‘Yeu’)
Else Write(‘Kem’);
Readln
End.