Hãy viết chương trình nhập vào điểm thi, tính điểm và xét kết quả thi tuyển sinh vào lớp 10 chuyên tin của một thí sinh biết:
– Thí sinh sẽ thi 4 môn Văn, Toán, Anh và Tin.
– Điểm tổng cộng = Văn + Toán + Anh + Tin*2
– Kết quả xuất ra màn hình điểm 4 môn và thông báo Dau nếu điểm tổng cộng >=35, ngược lại thông báo Hong.
Uses crt;
Var van, toan, anh, tin, dtc: real;
Begin
Clrscr;
Write(‘Nhap diem thi Toan: ‘); readln(toan);
Write(‘Nhap diem thi Anh: ‘); readln(anh);
Write(‘Nhap diem thi Van: ‘); readln(van);
Write(‘Nhap diem thi Tin: ‘); readln(tin);
dtc:=van+toan+anh+tin*2;
If dtc>=35 then writeln(‘Dau’)
Else writeln(‘Hong’);
readln
end.
uses crt;
var v,m,a,t,total:byte;
begin
clrscr;
read(v,m,a,t); readln;
total:=v+m+a+t*2;
writeln(total);
if total>=35 then write(‘Dau’) else write(‘Hong’);
readln;
end.