viết chương trình nhập điểm ba môn toán văn anh từ bàn phím. Tính và in ra màn hình điểm trung bình cộng của ba môn đó

2 câu trả lời

program tbc;

uses crt;

var T,V,A,Tb:real; 

begin clrscr;

   write('Nhap diem ba mon Toan, Van, Anh '); readln(T,V,A);

     Tb:=(T+V+A)/3;

readln;

end.

program tbc;
uses crt;
var t, v, av, tb :real; 
begin
clrscr;
write('nhap diem mon toan :'); readln(t);
write('nhap diem mon van :'); readln(v);
write('nhap diem mon anh van  :'); readln(av);
tb := (t + v + av)/3;
writeln('diem trung binh ba mon hoc la :', tb:8:2);
readln
end.