Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Game oẳn tù tì

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin
avatar

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Game oẳn tù tì   21/1/2015, 10:10

Program OTT;
Var i1,i2:integer;
Procedure Chon(var i:intger);
begin
Case i of
1: Write('bua');
2: Write('keo');
3: Write('bao');
End;
Begin
Write('Nguoi 1 choi: '); Readln(i1);
Chon(i1);
Write('Nguoi 2 choi: '); Readln(i2);
CHon(i2);
IF i1=i2 then Write('2 nguoi hoa');
End;
If (i1=1 and i2=2) or (i1=2 and i2=3) or (i1=3 and i2=1) then
Write('Nguoi1 thang')
else Write('Nguoi 1 thua');
End;
Readln;
End.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
 
Game oẳn tù tì
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Boom Online - Game đặt bom sặc nước online vui nhộn Ò.Ó~
» »[Game] Ý nghĩa tên nick
» CDOV - CongDongOtakuViet.Com - Thế giới tin tức Anime, Manga, Game, Vocaloid, Music, Cosplay,...
» [Game android] Trọn bộ 10 game android tổng hợp hay nhất
» [flash Game][Game collection] BAKUGAN : Mechtanium Surge

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Các chương trình lớn viết bằng Pascal-
Chuyển đến