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

0 bình luận về “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. 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.

   Bình luận