数列

2017年09月23日普级组 数列
Time Limit:10000MS Memory Limit:256000K
Total Submit:37 Accepted:34
Case Time Limit:1000MS

Description
小S今天给你出了一道找规律题，题目如下：
有如下的数列1，11，21，1211，111221，312211，……
小S问你这个数列的第N项是多少，而你一头雾水根本找不出规律。
聪明的小R悄悄地告诉你是这样的
1，
上一个数是一个1，写作11
上一个数是两个1，写作21
上一个数是一个2，一个1，写作1211
上一个数是一个1，一个2，两个1，写作111221，
…………
相信聪明的你一定可以解决这个问题。

Input
第一行包括一个正整数N。

Output
一行一个正整数（注意数字可能会唱过长整形，请注意用数组或者字符串存储）

Sample Input
6

Sample Output
312211

Hint
对于100%的数据，1<=n<=30。

---

直接模拟，统计相同数字的个数即可。

---

程序如下：

var
  i,j,k,n,m:longint;
  a,b:array[0..10000]of longint;
begin
  readln(n);
  m:=1;
  a[1]:=1;
  for i:=2 to n do
  begin
    k:=0;
    for j:=1 to m do
      if (j>=2)and(a[j]=a[j-1]) then inc(b[k-1])
        else
          begin
            inc(k);
            b[k]:=1;
            inc(k);
            b[k]:=a[j];
          end;
    m:=k;
    for j:=1 to m do
    begin
      a[j]:=b[j];
    end;
    fillchar(b,sizeof(b),0);
  end;
  for i:=1 to m do
    write(a[i]);
end.