[Help] Xóa số.

[phuonglan11]

Nhập vào 1 số tự nhiên N, rôi viết liên tiếp các số từ 1 đền N thành dãy.
VD N=10:
ta được số 12345678910.
Đầu tiên ta xóa các chữ số ở thứ tứ chãn, sau đó xóa đến các chữ số ở thứ tự lẻ, cứ lặp lại đến khi còn lại 1 chữ số. Tim chữ số đó.
:lick::boxing::book::bored::angel_not::bawling:

[ketsat]

Nhập vào 1 số tự nhiên N, rôi viết liên tiếp các số từ 1 đền 10 thành dãy.
VD N=10:
ta được số 12345678910.
Đầu tiên ta xóa các chữ số ở thứ tứ chãn, sau đó xóa đến các chữ số ở thứ tự lẻ, cứ lặp lại đến khi còn lại 1 chữ số. Tim chữ số đó.
:lick::boxing::book::bored::angel_not::bawling:

Nếu n=11 thì đc dãy ra sao bạn :-?

[luongha83p2]

duoc day 1234567891011 sau khi xoa di con so 0

[thichduthu]

Được dãy 1234567891011 chứ nhỉ? Sao lại là 01234567891011?

[maihienland]

Bạn ơi có giới hạn của N không vậy?

[damynghebaoan]

co chu ban N chi khoang <=20 thoi

[vietkanpy]

uses    crt;
var     n,d,d1,i,k:integer;
        s,s1:string;
begin
        clrscr;
        readln(n);
        for i:=1 to n do
        begin
                str(i,s1);
                s:=s+s1;
        end;
        d:=0;
        repeat
                if (d mod 2 = 0) then
                begin
                        s1:=s;
                        k:=length(s1);
                        d1:=1;
                        s:='';
                        repeat
                                s:=s+s1[d1];
                                d1:=d1+2;
                        until   d1>k;
                end;
                if (d mod 2 <>0) then
                begin
                        s1:=s;
                        k:=length(s1);
                        d1:=2;
                        s:='';
                        repeat
                                s:=s+s1[d1];
                                d1:=d1+2;
                        until   d1>k;
                end;
                inc(d);
        until   length(s)=1;
        write(s);
        readln;
end.

Mình chưa thử nhiều test nếu sai bạn thông cảm [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[vasmobifone]

Nếu N<=20 thì bạn chỉ lập dãy rồi thử xóa dần thôi mà.