Viết chương trình nhập vào điểm môn tin. Sau đó hãy xếp loại cho từng bạn theo điều kiện như sau:
• Điểm tin lớn hơn hoặc bằng 8 là loại giỏi
• Điểm tin từ 6.5 đến nhỏ hơn 8 là loại khá
• Điểm tin từ 5 đến nhỏ hơn 6.5 là loại trung bình
• Điểm tin nhỏ hơn 5 là loại kém
program xep_loai;
uses crt;
var diem:real;
begin
clrscr;
write(‘Nhap diem trung binh mon tin: ‘); readln(diem);
if diem>=8 then write(‘Loai gioi’)
else if diem>=6.5 then write(‘Loai kha’)
else if diem>=5 then write(‘Loai trung binh’)
else write(‘Loai kem’);
readln;
end.
uses crt;
var n:real;
begin
clrscr;
write(‘Nhap diem mon tin: ‘);readln(n);
write(‘Xep loai: ‘);
if n>=8 then writeln(‘Gioi’) else
if n>=6.5 then writeln(‘Kha’) else
if n>=5 then writeln(‘Trung binh’) else
writeln(‘Kem’);
readln
end.