Có 3 đội bóng(A,B,C), theo luật FIFA đội thắng được 3 điểm, hòa 1 điểm, thua 0 điểm
Kết quả
A gặp B có tỉ sô (P:Q), A ghi P bàn thắng, thủng lưới Q lần
A gặp C có tỉ số (R:S), A ghi R bàn thắng, thủng lưới S lần
B gặp C có tỉ số (U:V), B ghi U bàn thắng, thủng lưới V lần
Viết chương trình nhập từ bàn phím kết quả trận đấu và đưa ra số điểm của mỗi đội
Xin giúp em , em cảm ơn
Uses crt;
Var P,Q,R,S,U,V,dA,dB,dC: byte;
Begin
Clrscr;
dA:=0; dB:=0; dC:=0;
Write(‘A gap B: ‘);
Writeln;
Write(‘Nhap ti so 2 doi: ‘); Readln(P,Q);
If P>Q then dA:=dA+3;
If P=Q then
Begin
dA:=dA+1;
dB:=dB+1;
End;
Write(‘A gap C: ‘);
Writeln;
Write(‘Nhap ti so 2 doi: ‘); Readln(R,S);
If R>S then dA:=dA+3;
If R=S then
Begin
dA:=dA+1;
dC:=dC+1;
End;
Write(‘B gap C: ‘);
Writeln;
Write(‘Nhap ti so 2 doi: ‘); Readln(U,V);
If U>V then dB:=dB+3;
If U=V then
Begin
dB:=dB+1;
dC:=dC+1;
End;
Write(‘Diem doi A: ‘,dA);
Writeln;
Write(‘Diem doi B: ‘,dB);
Writeln;
Write(‘Diem doi C: ‘,dC);
Readln
End.