Nhập điểm T, V, S, D, A. Tính điểm thi khối C, D. viết chương trình pascal mn giup e vs a

0 bình luận về “Nhập điểm T, V, S, D, A. Tính điểm thi khối C, D. viết chương trình pascal mn giup e vs a”

1. uses crt;
   var toan, van, su, dia, anh, tbC, tbD: real;
   begin
        write(‘Nhap diem mon Toan: ‘);
        readln(toan);
        write(‘Nhap dien mon Van: ‘);
        readln(van);
        write(‘Nhap diem mon Su: ‘);
        readln(su);
        write(‘Nhap diem mon Anh: ‘);
        readln(anh);
        write(‘Nhap diem mon Dia: ‘);
        readln(dia);
        tbC:=(van+su+dia)/3;
        tbD:=(toan+van+anh)/3;
        write(‘Ket qua: Diem khoi C: ‘,tbC:0:2,’. Diem khoi D: ‘,tbD:0:2,’.’);
        readln
   end.

   Bình luận