Câu 1:

Program cau1;

Uses crt;

Var t,v,a:real;

Begin

Clrscr;

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

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

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

Writeln('Diem trung binh:', ((t+v)*2+a)/5:3:1);

Readln

End.

Câu 2:

Program cau2;

Uses crt;

Var b,c,d:real;

Begin

Clrscr;

Write('Nhap lan luot 3 so b c d:'); Readln(b,c,d);

Writeln('Ket qua cua bieu thuc A:', (b+c)/d:9:3);

Readln

End.

Câu 1:

Source Code Tính Điểm Trung Bình

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")

Câu 2:

Source Code Giải Phương Trình 
(ax+bx+c=0)

import math
#Hệ số 
a = float(input("Nhập Hệ Số a: "))
b = float(input("Nhập Hệ Số b: "))
c = float(input("Nhập Hệ Số c: "))
delta = b*b - 4*a*c
#giải phương trình
if delta < 0:
    print("\nPhương Trình Vô Nghiệm !")
elif delta == 0:
    print("\nPhương Trình Có Nghiệm Kep x1 = x2", -b/(2*a))
else:
    x1 = (-b - math.sqrt(delta))/(2*a)
    x2 = -b/a - x1
    print("\nPhương Trình Có 2 Nghiệm Phân Biệt ")
    print("x1 = ",x1, "x2 = ", x2)