Viết công thức nhập điểm ba môn Toán Văn Anh từ bàn phím in ra thông báo nếu điểm trung bình 9 đến 10 thì thông báo loại giỏi 7 đến 8 phá 5 đến 6 trung bình dưới 5 khoong Đạt
Viết công thức nhập điểm ba môn Toán Văn Anh từ bàn phím in ra thông báo nếu điểm trung bình 9 đến 10 thì thông báo loại giỏi 7 đến 8 phá 5 đến 6 trung bình dưới 5 khoong Đạt
uses crt;
var t,v,a : real;
dtb : real;
begin clrscr;
write(‘Nhap diem Toan, Van ,Anh la :’);
readln(t,v,a);
dtb:=(t+v+a)/3;
if (dtb>=9) and (dtb<=10) then write(‘Gioi’)
else if (dtb>=7) and (dtb<=8) then write(‘Kha’)
else if (dtb>=5) and (dtb<=6) then write(‘Trung binh’) else write(‘Yeu’);
readln
end.
program kaito;
uses crt;
var a, b, c, tb: real;
begin
clrscr;
write(‘Nhap diem toan: ‘); readln(a);
write(‘Nhap diem van: ‘); readln(b);
write(‘Nhap diem anh: ‘); readln(c);
tb:=(a+b+c)/3;
if (tb>=9) and (tb<=10) do writeln(‘Dat loai gioi’) else
if (tb>=7) and (tb<9) do writeln(‘Dat loai kha’) else
if (tb>=5) and (tb<7) do writeln(‘Dat loai trung binh’) else
writeln(‘Khong dat’);
readln
end.
CHÚC BẠN HỌC TỐT!!!