Viết chương trình nhập vào điểm 3 môn: Toán, văn, anh từ bàn phím. Tính điểm trung bình và in ra thông báo nếu điểm trung bình >=9 và<10 "giỏi" 7<=ĐTB và <=8 khá 5<=ĐTB <7 "TB" ĐTB<5 "ko đạt"
2 câu trả lời
program bai1;
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;
if 9<=Tb and Tb<=10 then writeln('Gioi');
if 7<=Tb and Tb<=8 then writeln('Kha');
if 5<=Tb and Tb<7 then writeln('Trung binh');
if Tb<5 then writeln('Khong dat');
readln;
end.
Học tốt!
Program Hotboy;
Uses crt;
Var Toan,van,anh,tb : real;
Begin
Clrscr;
Tb:=0;
Write('nhao dien toan'); Readln(toan);
Write('nhap diem van'); Readln(van);
Write(''nhap diem anh'); Readln(anh);
Tb:=(Toan+anh+van)/3;
If (Tb >=9 ) and (Tb<10) then write('gioi');
If (7<=TTb and (Tb <=8) then write('kha');
If 5<=Tb and Tb <7 then Write('Tb');
If Tb<5 then write('ko đat');
Readln
End.
Câu hỏi trong lớp
Xem thêm