3 bạn cùng tham gia một trò chơi như sau: mỗi bạn nắm trong tay 1 đồng xu, mỗi đồng xu có 2 trạng thái là ngửa và sấp. theo hiệu lệnh, cả ba bạn đưa đồng xu của mình ra phía trước. nếu cả 3 đồng xu cùng sấp hoặc cùng ngửa thì chưa phát hiện người thua. nếu 1 ban có trạng thái đồng xu khác với 2 ban kia thì bạn đó thắng cuộc. hãy viết chương trình pascal mô tả trò chơi đó
1 câu trả lời
Program FNG;
Uses crt;
Var A, B, C: Byte;
Begin
Clrscr;
Begin
Randomize;
A:=random(2);
B:=random(2);
C:=random(2);
End;
Write('A = ',a);
Writeln;
Write('B = ',b);
Writeln;
Write('C = ',c);
Writeln;
Write('Ket qua la: ');
Writeln;
If (a=b) and (b=c) then Write('Hoa');
If (a=b) and (b<>c) then Write('C thang');
If (a=c) and (c<>b) then Write('B thang');
If (b=c) and (a<>c) then Write('A thang');
Readln;
End.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 9 có lời giải chi tiết
