giúp tôi giải bài này với các huynh ơi

[hungcong88]

Bài như vậy nè Đầu tiên , một dãy số gồm 1 số 1 được nhập vào máy tính. Tại mỗi bước tiếp theo máy sẽ biến đổi đồng thời mỗi số 1 thành số 0 1, mỗi số 0 thành 1 0. Như vậy sau bước đầu ta có dãy 0 1, sau bước 2 có dãy 1 0 0 1 và cứ thế tiếp tục. Viết chương trình tìm xem sau n bước ( 2=

[haqn84]

chạy thử code này nha

uses crt;
var st:string;
    tam:array[1..100]of string;
    n,i,j,d:integer;
BEGIN
clrscr;
write('nhap so buoc n = ');readln(n);
st:='1';
d:=0;
repeat
      j:=0;
      while length(st) > 0 do
            if st[1]='1' then
               begin
                    inc(j);
                    tam[j]:='0'+st[1];
                    delete(st,1,1);
               end else
            if st[1]='0' then
               begin
                    inc(j);
                    tam[j]:='1'+st[1];
                    delete(st,1,1);
               end;
      for i:=1 to j do st:=st+tam[i];
      inc(d);
until d=n;
writeln(st);
readln;
END.

[petty]

Huynh ơi nhâp đến n=10 là không chạy được rồi, yêu cầu là 2 <= n< =20 lận đó, và chỉ cần đếm có bao cặp số 0 thôi không cần phải xuất dãy ra. Suy nghĩ thêm giùm đệ đi.