Viết chương trình: Nhập số báo danh Nhập điểm văn, toán, ngoại ngữ.
In ra màn hình dưới dạng:
• Phiếu điểm:
• Số báo danh:
• Điểm văn:
• Điểm toán:
• Điểm ngoại ngữ:
• Tổng số điểm:
Bạn đã trúng tuyển ( hoặc Bạn đã không trúng tuyển ) với điều kiện Tổng số điểm >= 15 hay ngược lại.
Program INPHIEU;
Uses Crt;
Var SBD: Integer;
Van, Toan, Ngoaingu, Tongdiem: Real;
BEGIN
Clrscr;
Write (' So bao danh: '); Readln( SBD );
Write (' Diem toan: '); Readln( Toan );
Write (' Diem ngoai ngu: '); Readln( Ngoaingu );
Write (' Diem van: '); Readln ( Van );
Tongdiem:=Toan + Van + Ngoaingu;
Writeln (' Phieu Bao Diem ');
Writeln (' So bao danh: ', SBD );
Writeln (' Diem van: ', Van );
Writeln (' Diem toan: ', Toan );
Writeln (' Diem ngoai ngu: ', Ngoaingu);
Writeln (' Tong diem: ', Tongdiem);
If Tongdiem >= 15 Then
Writeln(' Ban da trung tuyen ')
Else Writeln(' Ban khong trung tuyen ');
Readln;
End.
