Question

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.

Answer 1

uses crt;

var van,toan,anh,tin,dtc:real;

begin

clrscr;

write('Nhap diem Van:'); readln(van);

write('Nhap diem Toan:'); readln(toan);

write('Nhap diem Anh:'); readln(anh);

write('Nhap diem Tin:'); readln(tin);

dtc:=van+toan+anh+tin*2;

writeln('Ket qua thi mon Van la: ',van:4:2);

writeln('Ket qua thi mon Toan la: ',toan:4:2);

writeln('Ket qua thi mon Anh la: ',anh:4:2);

writeln('Ket qua thi mon Tin la: ',tin:4:2);

if dtc>=35 then writeln('Dau')

else writeln('Hong');

readln;

end.