Bài số 2:
Code:
const Nmax=1000;
type
st=array[1..Nmax] of integer;
var index,len,n,i:integer;
s:st;
procedure demx(var s:st;x:integer);
var i:integer;
begin
if len>1 then
begin
{for loop}
for i:=1 to x-1 do
if index >= len then index:=1
else
begin
inc(index)
end;
{end for loop}
{delete a member at index from s}
if index < len then
for i:=index to len-1 do
s[i]:=s[i+1]
else
index:=1;
{decrease len by 1}
dec(len);
end
end;
{end demx}
begin
index:=1;
write('n=');
readln(n);
if n > Nmax then
write('Loi: Nhap n khong lon hon ',Nmax)
else
begin
if n <= 0 then
write('Khong xet khi n khong duong')
else
if n = 1 then
write('Ky tu dai dien la ky tu duy nhat cua chuoi')
else
begin
for i:=1 to n do
s[i]:=i;len:=n;
while len > 1 do
begin
demx(s,5);
demx(s,6)
end;
write(s[1]);
readln
end
end
end.