Viết chương trình pascal biết sẵn điểm trung bình và xét nếu
ĐTB>8,0 thì là hsg
6,5<ĐTB<8,0 là hsk
5,0<ĐTB<6,5 là hsTB
ĐTB<5,0 là hs kém
giúp mk nhanh với ạ
Viết chương trình pascal biết sẵn điểm trung bình và xét nếu
ĐTB>8,0 thì là hsg
6,5<ĐTB<8,0 là hsk
5,0<ĐTB<6,5 là hsTB
ĐTB<5,0 là hs kém
giúp mk nhanh với ạ
đây bạn
Uses CRT;
Var ĐTB : real;
begin
clrscr;
begin
write(‘nhap diem trung binh: ‘);
If (TB >=8) then write(‘hoc luc gioi’) else
If (TB>=6.5) then write(‘hoc luc kha’) else
If (TB>5.0) then write(‘hoc luc trung binh’) else
If (TB<5.0) then write(‘hoc luc kem’);
Readln;
end.