Câu 10: Viết chương trình tính điểm trung bình của 2 môn Toán và Văn, với điểm Toán và Văn được nhập từ bàn phím. In ra màn hình kết quả ĐTB vừa tính và xếp loại của ĐTB. (cho biết: DTB>=8.0 XL Giỏi, 8.0>DTB>=6.5 XL Khá, 6.5>DTB>=5.0 XL Khá, còn lại XL Yếu)

uses crt;

var t,v,tb:real;

xh:string;

begin

clrscr;

writeln('nhap diem van va toan: ');

readln(v,t);

tb:=(v+t)/2;

if tb>=8 then xh:='GIOI';

if (tb<8) and (tb>=6.5) then xh:='KHA';

if (tb<6.5) and (tb>=5) then xh:='TRUNG BINH';

if (tb<5) then xh:='YEU';

writeln(xh);

readln

end.

toan = float(input("nhập điểm toán:"))
van = float(input("nhập điểm van:"))
dtb = (toan + van)/2
if dtb >=8:
 print("loại giỏi")
elif dtb < 8 and dtb >= 6.5:
 print("khá")
elif dtb < 6.5 and dtb >= 5.0:
 print("trung bình")
elif dtb < 5.0:
 print("yếu")