Question

Bài tập:

Yêu cầu: Cho biết điểm kiểm tra Tin học của 1 em học sinh (2 con điểm hệ số 1, 1 con điểm hệ số 2, 1 con điểm hệ số 3). In ra Kết quả học tập môn Tin học của em đó. Nếu điểm tổng kết >=8 đạt kết quả Giỏi, <8 và >=6,5 đạt kết quả Khá, <6,5 và >=5 đạt kết quả Trung Bình, <5 đạt kết quả Yếu.

Dữ liệu: Một dòng chứa 4 số điểm của học sinh.

Kết quả: Kết quả học tập môn Tin học của em học sinh.

Mình không biết làm bài này ai giúp với a

Answer 1

uses crt;

var a,b,c,d,tb:real;

begin

clrscr;

write('Nhap diem cua ban:'); readln(a,b,c,d);

tb:=(a+b+c+d)/7;

if tb>=8 then writeln('Gioi');

if (6,5<=tb) and (tb<8) then writeln('Kha');

if (5<=tb) and (tb<6,5) then writeln('Trung Binh');

if tb<5 then writeln('Yeu');

readln;

end.