Diễn đàn tin học Nguyễn Văn Linh

The second house for every one
 
IndexTrợ giúpTìm kiếmThành viênĐăng kýĐăng Nhập

Share | 
 

 Bài tin nhức đầu

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


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Bài tin nhức đầu   Wed 17 Mar 2010, 21:47

Đây ko pahỉ là 1 câu đố đâu, là một câu hỏi của mình. Đăng lên các bạn thảo luận.

Có 1 trờ chơi như sau. Có hai bạn A và B và tập số nguyên dương lớn hơn 1. Đầu tiên bạn A chọn 1 số nguyên dương. Sau đó các số là bội của A vừa chọn sẽ bị loại khỏi tập. Tiếp sau đó, B sẽ chọn 1 số chưa bị loại trong tập. Sau đó những số là bội của số B vừa chọn sẽ bị laoị. Ngoài ra, các số là tổng của các số bị laoị cũng bị loại. trò chơi tiếp tục. Người nào đến lượt mình mà ko còn số để chọn là thua.

ví dụ A ban đauà chọn 4 thì các số bị loại là 4, 8,12,....
B chọn 3 thì các số bị loại là 3,6,9,12... và các số 7,11,12,13,15,17....

Yêu cầu đặt ra là sau khi A chọn 1 số n (2<=n<=50) thì hãy cho biết B có thể thắng hay ko, giả sửa A và B thông mình như nhau. Ai có ý tưởng thì cho ý kiến.

Ví dụ nếu A chọn 4 thì thông báo là B không thể thắng. Lưu ý, trong trường hợp này, B có thể chọn các số ngoài khoảng 50, vì tập là không giới hạn mà.


Được sửa bởi littlelee ngày Thu 18 Mar 2010, 12:14; sửa lần 1.
Về Đầu Trang Go down
administrators
Gà nhỏ


Tổng số bài gửi : 29
Join date : 15/03/2010

Bài gửiTiêu đề: Re: Bài tin nhức đầu   Wed 17 Mar 2010, 22:12

Bài này là một câu đố mẹo:

Không cần lập trình gì cả.
- Nếu A chọn số 1 thì B thua ngay
- Nếu A chọn số >1 thì B chọn 1 A thua ngay.
Về Đầu Trang Go down
nh0x.ti_em
Gà con


Tổng số bài gửi : 10
Join date : 17/03/2010

Bài gửiTiêu đề: help me   Thu 18 Mar 2010, 10:22

tui e giúp anh cái này nha

1/Tính tổng các phần tử trong mảng
2/Tổng các phần tử chẳn, lẻ
3/Xuất các phần tử có vị trí chẵn

dc HS Trung Bình cũng vì cái pascal này:D
mai anh nộp rùi đó

mấy bài này a còn phải cầu cứu chứ như bài ở trên là thua òi :Dhehe
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Bài tin nhức đầu   Thu 18 Mar 2010, 11:59

administrators đã viết:
Bài này là một câu đố mẹo:

Không cần lập trình gì cả.
- Nếu A chọn số 1 thì B thua ngay
- Nếu A chọn số >1 thì B chọn 1 A thua ngay.

Hihi, em sorry, là tyập số nguyên dương lớn hơn 1. Em đã bổ sung rồi. Bài này anh cho ý kiến đi.
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Bài tin nhức đầu   Thu 18 Mar 2010, 12:03

nh0x.ti_em đã viết:
tui e giúp anh cái này nha

1/Tính tổng các phần tử trong mảng
2/Tổng các phần tử chẳn, lẻ
3/Xuất các phần tử có vị trí chẵn

dc HS Trung Bình cũng vì cái pascal này:D
mai anh nộp rùi đó

mấy bài này a còn phải cầu cứu chứ như bài ở trên là thua òi :Dhehe

Thân chào thành viên mới. Bạn lần sau viết rõ tí nhé, mình chả biết phải xưng hô sao nữa.

câu 1:
Code:
var a:array[1..100] of integer; i,n,tong:integer;
begin
 write('nhap so phan tu cua mang: ');readln(n);
 for i:=1 to n do
  begin
  write('a[',i,']='); readln(a[i]); tong:=tong+a[i];
  end;
 writeln('tong cac phan tu cua mang la: ',tong);
 readln;
end.
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Bài tin nhức đầu   Thu 18 Mar 2010, 12:06

bài 2:
Code:
var a:array[1..100] of integer; i,n,chan,le:integer;
begin
 write('nhap so phan tu cua mang: ');readln(n);
 for i:=1 to n do
  begin
  write('a[',i,']=');readln(a[i]);
  if a[i] mod 2=0 then chan:=chan+a[i]
  else le:=le+a[i];
  end;
 writeln('tong cac so chan la: ',chan);
 writeln('tong cac so le la: ',le);
readln;
end.
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Bài tin nhức đầu   Thu 18 Mar 2010, 12:11

Bài 3:
Code:
var a:array[1..100] of integer; i,n:integer;
begin
 write('nhap so phan tu cua mang: ');readln(n);
 for i:=1 to n do
  begin
  write('[',i,']=');readln(a[i]);
  end;
 write('Cac phan tu co vi tri chan la: ');
 for i:=1 to n do
  if i mod 2=0 then write(a[i],' ');
readln;
end.

Bài này mình làm cách chưa tối ưu nhất. Tuy nhiên bạn cứ xài vô tư. Đối với mấy bài dạng này thì các yêu cầu đó ko ràng buộc đâu.
Về Đầu Trang Go down
nh0x.ti_em
Gà con


Tổng số bài gửi : 10
Join date : 17/03/2010

Bài gửiTiêu đề: Re: Bài tin nhức đầu   Thu 18 Mar 2010, 20:11

tk nha:D
kêu = bạn cũng dc
chắc bạn chuyên Tin hả
mới lớp 9 mà giải pascal hay ghê..
Về Đầu Trang Go down
hoangtin14
Mèo con


Tổng số bài gửi : 96
Join date : 08/02/2010
Age : 21
Đến từ : Bình Định

Bài gửiTiêu đề: Re: Bài tin nhức đầu   Thu 18 Mar 2010, 20:39

admin thuộc nhóm pro pascal lớp 9 đó.
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Bài tin nhức đầu   Fri 19 Mar 2010, 13:39

nh0x.ti_em đã viết:
tk nha:D
kêu = bạn cũng dc
chắc bạn chuyên Tin hả
mới lớp 9 mà giải pascal hay ghê..

Bạn quá khen. Hi vọng bạn sẽ tham gia diễn đàn

hoangtin14 đã viết:
admin thuộc nhóm pro pascal lớp 9 đó.

^^, chẳng phải Tín cũng vậy sao
big grin
Về Đầu Trang Go down
Sponsored content




Bài gửiTiêu đề: Re: Bài tin nhức đầu   Today at 18:49

Về Đầu Trang Go down
 
Bài tin nhức đầu
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Nguyễn Văn Linh :: Góc tin học :: Lớp chuyên tin-
Chuyển đến