Nhanh giúp mình với. viết chương trình bằng pascal nhé. Cho biết kết quả xếp loại của 1 học sinh biết nếu học sinh đó có điểm trung bình là 8 thì xếp loại giỏi, điểm trung bình từ 6,5 đến 7,9 thì kết quả là Khá, điểm trung bình từ 5 đến 6,4 thì kết quả là trung bình, còn lại là yếu, Biết điểm trung bình của học sinh được nhập từ bàn phím và là 1 số thập phân có 1 chữ số ở phần thập phân. VD: 6,3; 7,6
1 câu trả lời
uses crt;
var tb : real;
begin
clrscr;
write('nhap diem trung binh : ');readln(tb);
if tb >= 8 then writeln('xep loai gioi');
if (tb< 8) and (tb >= 6.5) then writeln('xep loai kha');
if (tb < 6.5) and (tb >= 5) then writeln('xep loai trung binh');
if tb < 5 then writeln('xep loai yeu');
readln
end.