Yêu càu san pham (9 diểm) Bạn hay viết một chương trình máy tính bằng ngôn ngữ lập trình Pascal dé thuc hiện tính diem trung binh các môn toán, văn. Sau dó néu diểm trung binh >-5 thi hiện ra màn hinh "kết quá dat', nguroc lai là két quá không dat' Chúý: -Khai báo program churong trình là Lop STT TenHs (ghi thông tin lớp, số thứ tuư, tên học sinh) -Có sử dụng lệnh xóa mán hinh Yêa câu nộp sàn pham (1diểm) - Nộp sán phẩm : Dính kèm File là file PAS: (vd: Lop8al 01 NguyenVanA.PAS) nộp duoc Idiem - Néu nộp file dinh kem dạng file khác (hinh ành hoặc file word ..) chi đưroc tối da (0.5d).

1 câu trả lời

* Thay tên chương trình nhé : 

=> Vd : Lớp 8A, số báo danh 09, tên Việt;

=> Program lop8a_09_viet;

* * * * * ** * ** * ** * ** * ** * ** * ** * *

program lop8a_09_viet;

uses crt;

var toan, van, tb : real;

begin

clrscr;

write('nhap diem toan va van : ');readln(toan, van);

tb := (toan + van) / 2;

if tb >= 5 then writeln('ket qua dat')

else writeln('khong dat');

readln

end.