Question

viết chương trình nhập vào các điểm thi windows, winword,winword,execl.Tính điểm trung bình(lấy giá trị có 1 số lẻ thập phân)

Answer 1

program TinhDiemTrungBinh;

uses crt;

var

     diemWindows, diemWinword, diemExcel, diemTrungBinh: real;

begin

     clrscr;

     writeln('Nhập điểm thi Windows:');

     readln(diemWindows);

     writeln('Nhập điểm thi Winword:');

     readln(diemWinword);

     writeln('Nhập điểm thi Excel:');

     readln(diemExcel);

     diemTrungBinh := (diemWindows + diemWinword + diemExcel) / 3;

     writeln('Điểm trung bình: ', diemTrungBinh:0:1);

     readln;

end.

Answer 2

var

     Windows, Winword, Excel, TB: real;

begin

     clrscr;

     writeln('Nhập điểm thi Windows:');

     readln(Windows);

     writeln('Nhập điểm thi Winword:');

     readln(Winword);

     writeln('Nhập điểm thi Excel:');

     readln(Excel);

    TB := (Windows + Winword + Excel) / 3;

     writeln('Điểm trung bình: ', TB:0:1);

     readln;

end.