Question

viết chương trình tính điểm cho học sinh và cho biết học lực của học sinh( nhập điểm toán, lý, hóa, văn, anh, điểm trung bình)

Answer 1

uses crt;

var toan,ly,hoa,van,anh,dtb:real;

begin

clrscr;

write('Nhap diem Toan:'); readln(toan);

write('Nhap diem Ly:'); readln(ly);

write('Nhap diem Hoa:'); readln(hoa);

write('Nhap diem Van:'); readln(van);

write('Nhap diem Anh:'); readln(anh);

dtb:=(toan+ly+hoa+van+anh)/5;

if dtb>=8 then writeln('Gioi');

if (6,5<=dtb) and (dtb<8) then writeln('Kha');

if (5<=dtb) and (dtb<6,5) then writeln('Trung binh');

if dtb<5 then writeln('Yeu');

readln;

end.