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.