Viết chương trình nhập vào điểm bất kì 2 môn Toán Văn Tính điểm trung bình hai môn trên nếu điểm trung bình lớn hơn bằng 5 thì thông báo bạn đã đỗ ngược lại thông báo bạn đã trượt
2 câu trả lời
uses crt;
var a, b, tb :real;
begin
clrscr;
readln(a, b);
tb := (a+b)/2;
if tb>=5 then writeln('ban da do') else writeln(' ban da truot');
readln
end.
program thong_bao;
uses crt;
var a, b, tb :real;
begin
clrscr;
write('nhap diem mon van : ');readln(a);
write('nhap diem mon toan:');readln(b);
tb := (a+b)/2;
if (tb>=5) then writeln('ban da do')
else writeln(' ban da truot');
readln
end.
