Viết chương trình nhập vào điểm Toán, Văn, Anh và đối tượng chính sách thuộc nhóm từ 1 đến 9. Nếu đối tượng từ 1 đến 3 thì được cộng thêm 1 điểm, đối tượng từ 4 đến 6 thì được cộng thêm 0.5 còn lại không được cộng. Nhập vào điểm trúng tuyển. Sau đó in ra kết quả tổng điểm, và trúng tuyển hay không trúng tuyển.-------------
2 câu trả lời
uses crt;
var a,b,c,d,e:integer;
S:real;
begin
write('nhap diem toan:');readln(a);
write('nhap diem van:');readln(b);
write('nhap diem anh:');readln(c);
write('nhap doi tuong chinh sach:');readln(d);
write('nhap diem trung tuyen:');readln(e);
S:=a+b+c;
if d<=3 then S:=S+1 else if d<=6 then S:=S+0.5;
if S>e then writeln('Trung tuyen') else writeln('Ko trung tuyen');
readln;
end.
