VIẾT CHƯƠNG TRÌNH NHẬP ĐIỂM 3 MÔN TOÁN, VĂN , ANH. YINH1 ĐIỂM TRUNG BÌNH CẢ 3 MÔN HỌC TRÊN VÀ XUẤT ĐIỂM TB VÀ XẾP LOẠI HỌC LỰC HS NHƯ SAU: 3.5<=ĐTB<5: YẾU 5<=ĐTB<6.5: TB 6.5<=ĐTB<7.5:KHÁ 7.5<=ĐTB<8:GIỎI 8<=ĐTB<9:XS

program bai_giai;
uses crt;
var toan,anh,van,dtb:real;
begin
 clrscr;
  write('nhap diem mon toan, anh, van:');readln(toan, anh, van);
  dtb:=(toan+anh+van)/3;
  if(dtb>=8)and(dtb<9)then write('xuat sac');
  if(dtb>=7)and(dtb<8)then write('gioi');
  if(dtb>=6.5)and(dtb<=7.5)then write('kha');
  if(dtb>=5)and(dtb<6.5)then write('trung binh');
  if(dtb>=3.5)and(dtb<5)then write('yeu');
 readln
end.

Program baitap;

Uses crt;

Var t,v,a,tb:real;

Begin

Clrscr;

Writeln('Nhap diem toan:'); Readln(t);

Writeln('Nhap diem van:'); Readln(v);

Writeln('Nhap diem anh:'); Readln(a);

tb:=(t+v+a)/3:2:1);

If (tb>=3.5 and tb<5) then writeln('Yeu');

If (tb>=5 and tb<6.5) then writeln('Trung binh');

If (tb>=6.5 and tb<7.5) then writeln('Kha');

If (tb>=7.5 and tb<8) then writeln('Gioi');

If (tb>=8 and tb<9) then writeln('Xuat sac');

Readln

End.