Viết chương trình Pascal tính điểm trung bình 3 môn Văn Toán Anh

0 bình luận về “Viết chương trình Pascal tính điểm trung bình 3 môn Văn Toán Anh”

1. uses crt;
   var a,b,c:longint;
   begin
   clrscr;
      write(‘Diem van, toan, anh: ‘);readln(a,b,c);
      writeln(‘TBC: ‘,(a+b+c)/3:0:2);
   readln
   end.

   Bình luận

2. program diemtrungbinh;

   uses crt;

   var

   t,v,a,i:Integer;

   tb:Real;

   begin

   clrscr;

   write(‘Nhap diem van’);readln(v);

   write(‘Nhap diem toan’);readln(t);

   write(‘Nhap diem anh’);readln(a);

   i:=t+v+a;

   tb:=i/3;

   writeln(‘Diem trung binh ba mon Toan, Van, Anh la ‘,tb);

   readln

   end.

   Bình luận