Viết chương trình nhập vào một điểm kiểm tra từ bàn phím và in kết quả xếp loại ra màn hình: Loại kém (1, 2 điểm), loại yếu (3, 4 điểm), loại trung bình (5, 6 điểm), loại khá (7, 8 điểm), loại giỏi (9, 10 điểm).

program diem;

uses crt;

var d:real;

begin

clrscr;

writeln('nhap diem: ');readln(d);

if (d>=1 and d<2) then writeln('kem');

if (d>=3 and d<4) then writeln('yeu');

if (d>=5 and d<6) then writeln('trung binh');

if (d>=7 and d<8) then writeln('kha');

if (d>=9 and d<=10) then writeln('gioi');

readln;

end.

Program baitap;

Uses crt;

Var a:integer;

Begin

Clrscr;

Write('Nhap diem kiem tra:'); Readln(a);

If (a=1 or a=2) then Write('Xep loai:Kem');

If (a=3 or a=4) then Write('Xep loai:Yeu');

If (a=5 or a=6) then Write('Xep loai:Trung binh');

If (a=7 or a=8) then Write('Xep loai:Kha');

If (a=9 or a=10) then Write('Xep loai:Gioi');

Readln

End.