斯诺登的密码

题意

找出句子中所有用英文表示的数字(≤20)，将这些数字平方后0，如00,05,11,19,86,99。把这些两位数按数位排成一行，组成一个新数，如果开头为0，就去0。找出所有排列方法中最小的一个数，即为密码。

分析

先计算出每一个数字的平方，不过在放进数组里时，只放两位。

如1的平方是1，放进数组里时则变成01。

如10的平方是100，放进数组里时则变成00。

最后排序再输出。

var i,j:longint; a:array[0..20]of string; s,zfc,sz:string; dz:int64; begin     read(s);     dz:=0;     repeat          sz:=copy(s,1,pos(' ',s)-1);          if (sz='one')or(sz='One')or(sz='a')or(sz='another')or(sz='first') then          begin              inc(dz);              a[dz]:='01';          end else          if (sz='two')or(sz='Two')or(sz='both')or(sz='second') then          begin              inc(dz);              a[dz]:='04';          end else          if (sz='three')or(sz='Three')or(sz='third') then          begin              inc(dz);              a[dz]:='09';          end else          if (sz='four')or(sz='Four') then          begin              inc(dz);              a[dz]:='16';          end else          if (sz='five')or(sz='Five') then          begin              inc(dz);              a[dz]:='25';          end else          if (sz='six')or(sz='Six') then          begin              inc(dz);              a[dz]:='36';          end else          if (sz='seven')or(sz='Seven') then          begin              inc(dz);              a[dz]:='49';          end else          if (sz='eight')or(sz='Eight') then          begin              inc(dz);              a[dz]:='64';          end else          if (sz='nine')or(sz='Nine') then          begin              inc(dz);              a[dz]:='81';          end else          if (sz='ten')or(sz='Ten') then          begin              inc(dz);              a[dz]:='00';          end else          if (sz='eleven')or(sz='Eleven') then          begin              inc(dz);              a[dz]:='21';          end else          if (sz='twelve')or(sz='Twelve') then          begin              inc(dz);              a[dz]:='44';          end else          if (sz='thirteen')or(sz='Thirteen') then          begin              inc(dz);              a[dz]:='69';          end else          if (sz='fourteen')or(sz='Fourteen') then          begin              inc(dz);              a[dz]:='96';         end else         if (sz='fifteen')or(sz='Fifteen') then          begin              inc(dz);              a[dz]:='25';          end else          if (sz='sixteen')or(sz='Sixteen') then          begin              inc(dz);              a[dz]:='56';          end else          if (sz='seventeen')or(sz='Seventeen') then          begin              inc(dz);              a[dz]:='89';          end else          if (sz='eighteen')or(sz='Eighteen') then          begin              inc(dz);              a[dz]:='24';          end else          if (sz='nineteen')or(sz='Nineteen') then          begin              inc(dz);              a[dz]:='61';          end else          if (sz='twenty')or(sz='Twenty') then          begin              inc(dz);              a[dz]:='00';         end;          delete(s,1,pos(' ',s));     until s[1]='.';     for i:=1 to dz-1 do     begin         for j:=i+1 to dz do         if a[i]>=a[j] then         begin             a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];         end;     end;     zfc:='';     for i:=1 to dz do     zfc:=zfc+a[i];     val(zfc,dz);     write(dz); end.