2
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1598
1748
Program baitap;
Uses crt;
Var ht:string;
tx1,tx2,tx3,dgk,dck,tbhk:real;
Begin
Clrscr;
Write('Ho ten:'); Readln(ht);
Write('tx1:'); Readln(tx1);
Write('tx2:'); Readln(tx2);
Write('tx3:'); Readln(tx3);
Write('dgk:'); Readln(dgk);
Write('dck:'); Readln(dck);
tbhk:=((tx1+tx2+tx3)+2*dgk+3*dck)/8;
Writeln('Ho ten:',ht);
Writeln('Diem tbhk:',tbhk:2:1);
Write('Xep loai hoc luc:');
If tbhk>=9 then writeln('Xuat sac');
If (tbhk<9) and (tbhk>=8) then writeln('Gioi');
If (tbhk<8) and (tbhk>=6.5) then writeln('Kha');
If (tbhk<6.5) and (tbhk>=5) then writeln('Trung binh');
If (tbhk<5) and (tbhk>=3.5) then writeln('Yeu');
If tbhk<3.5 then writeln('Kem');
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin