Lập trình nhập tính điểm trung bình xếp loại điểm trung bình tin học kì 1
1 câu trả lời
Program BTT;
Uses crt;
Var a: real;
Begin
Clrscr;
Write('Nhap diem: '); Readln(a);
If a<5 then Write('Diem yeu! Ban can co gang hon!');
If (a>=5) and (a<6.5) then Write('Dat diem trung binh!');
If (a>=6.5) and (a<8) then Write('Ban dat diem kha!');
If a>=8 then Write('Ban dat diem gioi');
Readln
End.