Viết chương trình nhập vào họ tên, điểm văn, điểm toán, điểm anh của một học sinh. Sau đó in ra màn hình: học tên, điểm trung bình, xếp loại của học sinh đó ( trên cùng một dòng ). Cho biết:
– điểm trung bình: ( điểm văn + toán + anh ) /3
– xếp loại: giỏi nếu điểm TB ≥ 9,0
khá nếu 7,0 ≤ điểm TB ≤ 9,0
trung bình nếu 5,0 ≤ điểm TB ≤ 7,0
yếu nếu điểm TB ≤ 5,0
giúp em vs huhu
program diem;
uses crt;
var ten:string;
dv,dt,da,tb:real;
begin
clrscr;
write(‘Nhap ten: ‘); readln(ten);
write(‘Nhap diem van: ‘); readln(dv);
write(‘Nhap diem toan: ‘); readln(dt);
write(‘Nhap diem anh: ‘); readln(da);
tb:=(dv+dt+da)/3;
write(ten,’ ‘,dtb:2:2);
if tb>=9 then write(‘Xep loai gioi’);
if (tb>=7) and (tb<9) then write(‘Xep loai kha’);
if (tb>=5) and (tb<7) then write(‘Xep loai trung binh’);
if tb<5 then write(‘Xep loai yeu’);
readln
end.