BÀI TẬP CƠ BẢN - Đáp án ++ Viết chương trình tính điểm trung bình 3 môn Toán, Lý , Hoá theo hệ số 2,1,1 sau đó xếp loại như sau:Loại Giỏi : ĐTB >= 8.0 và không có môn nào dưới 6,5Loại Khá : 6.5=Loại Trung bình : 5.0 =Loại Yếu : Còn lại.program xep_loai_hoc_sinh;uses crt;var t,l,h,tbc, min:real; xl:string;beginwrite(`moi nhap diem toan,ly,hoa: `);readln(t,l,h);min:=l;if min>t then min:=t;if min>h then min:=h;tbc:=(t*2+l+h)/4;if (tbc>=8) and (min>=6.5) then xl:=`Gioi`; else if (tbc>=6.5) and (min>=5) then xl:=’Kha’; else if (tbc>=5) and (min>=3.5) then xl:=`Trung binh` else xl:=`yeu`;writeln(‘Diem trung binh:’,tbc:0:1,’ Xep loai:’,xl);readln;end.VCT nhập vào tháng, năm và cho biết tháng đó có bao nhiêu ngày?var n,t,ngay:integer;beginwrite(`nhap thang:`);readln(t);write(`nhap nam:`);readln(n);case t of1,3,5,7,8,10,12: ngay:=31;4,6,9,11:ngay:=30;2: if n mod 4 = 0 then ngay :=29 else ngay:=28;end;writeln(`Thang:`,t,` nam:`,n,` co: `,ngay,` ngay`);readln;end.VCT tìm ước chung lớn nhất và bội chung nhỏ nhất của hai số nhập vào từ bàn phím?var a,b,min,max,ucln:integer;beginwrite(`moi nhap hai so can xac dinh: `);readln(a,b);max:=a;min:=b;if max mod min=0 then...