giúp mình với ạ mình đang cần gấp 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 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.

program diem_trung_binh;

uses crt;

var a,b,c,d:real;

begin

clrscr;

writeln('Nhap diem mon toan');readln(a);

writeln('Nhap diem mon van');readln(b);

writeln('Nhap diem mon anh');readln(c);

d:=(a+b+c)/3;

if 3.5<=d<5 then writeln('Yeu');

if 5<=d<6.5 then writeln('Trung binh');

if 6.5<=d<7.5 then writeln('Kha');

if 7.5<=d<8 then writeln('Gioi');

if 8<=d<9 then writeln('Xuat sac');

readln

end.