Tạo chương trình tính điểm trung bình môn (TBM) tổng quát theo công thức TBM=(DGK+2*DCK)/3

Program baitap;

Uses crt;

Var TBM,DGK,DCK:real;

Begin

Clrscr;

Write('Nhap diem giua ki:'); Readln(DGK);

Write('Nhap diem cuoi ki:'); Readln(DCK);

TBM:=(DGK+2*DCK)/3;

Writeln('Trung binh mon:',TBM:3:1);

Readln

End.

try:
    a=float(input("Hãy Nhập Điểm Toán: "))
    b=float(input("Hãy Nhập Điểm Văn: "))
    c= float(input("Hãy Nhập Điểm Anh: "))
    tbl =(a+b+c)/3
    print("\nĐiểm Trung Bình Chưa Làm Tròn: ", tbl)
    print("Điểm Trung Bình Đã Làm Tròn: ", round(tbl,2))
except:
    print("\nLỗi Thao Tác")