2008迎接元宵邀请赛

FBI序列

  【问题描述】

两伙外星人策划在未来的XXXX年侵略地球,侵略前自然要交换信息咯,现在,作为全球保卫队队长,你截获了外星人用来交换信息的一段仅由’F’,’B’,’I’,’O’,组成的序列,为了保卫地球和平,为了使家园不受破坏,你要机智地破解密码,勇敢地迎击外星人!记住,你不是一个人在战斗!你不是一个人!你的背后是千千万万的地球人!

【输入文件】

   一组仅由’F’,’B’,’I’,’O’,组成的序列(’F’,’B’,’I’,’O’这四个字母中的某一个或某几个不一定会出现,且保证序列长度<=2000)

规定这个序列所要传达的信息就是这组序列有多少个’FBI’(子序列) 

【输出文件】

一个数,表示这组序列有多少个’FBI’的子序列(保证答案<=2^31,且FBI必须是正序,即IBF或者BIF或者FIB或者BFI或者IFB都不能算是一个FBI)

【样例输入】

FBIIBFOI

【样例输出】

4

【样例说明】

第一个FBI是由序列的第一个字母+序列的第二个字母+序列的第三个字母组成

第二个FBI是由序列的第一个字母+序列的第二个字母+第四个字母组成

第三个FBI是由序列的第一个字母+序列的第二个字母+第八个字母组成

第四个FBI是由序列的第一个字母+序列的第五个字母+第八个字母组成

 

 


var
  i,j,k,n,m,len:longint;
  s:ansistring;
begin
  assign(input,'fbi.in'); reset(input);
  assign(output,'fbi.out'); rewrite(output);
  readln(s);
  n:=length(s);
  for i:=1 to n do

  if s[i]='F' then
    for j:=i+1 to n do

    if s[j]='B' then
      for k:=j+1 to n do
        begin
     
       
              if s[k]='I' then inc(m);
        end;
  writeln(m);
  close(input);
  close(output);
end.



这题强势卡过。。。。。。



隐藏的信息

【问题描述】

FBI事件后,北斗星司在一个荒山野岭遇到了两个安培拉星人的谈话,由于北斗星司也是外星人,所以他听懂了谈话的内容- -

安培拉星人A说:1234567

安培拉星人B说:了解,我将回去报告长官

显然,安培拉星人A说的是一串密码,且我们已知安培拉星通用一种加密方式,即在一个仅含有数字1-9(且每个数字最多出现一次)的数字N中,将N中的每一位重新排列(可以将N里的所有位全部重新排列,也可以只重新排列几位,或者不重新排列),使得排列后的新数字M是数字P~Q的公倍数,那么M就是N所隐藏的密码

【输入文件】

两行,第一行一个数字N(N的长度..不用我说了吧?)第二行两个数P、Q(1<=P<=Q<=20)

【输出文件】

一个或多个M,表示排列以后的新数字(M必定为数字P~Q的公倍数),若无答案则输出‘No answer’(引号不输出),若多解则从小到大输出

【样例输入1】

132

1 3

【样例输出1】

132

312

 



 var
  p,q,i,j,n:longint;
  s:string;
  a:array[1..9]of longint;


procedure print(t:string);
var
  k,i:longint;
begin
  val(t,k);
  for i:=p to q do
    if k mod i<>0 then exit;
  writeln(k);j:=1;
end;


procedure dfs(k:longint;t:string);
var
  i,j:longint;
begin
  if k>=n then begin print(t);exit;end;
  for i:=1 to 9 do
    if a[i]=1 then
      begin
        a[i]:=0;
        dfs(k+1,t+chr(i+48));
        a[i]:=1;
      end;
end;


begin
  assign(input,'lcs.in');
  assign(output,'lcs.out');
  reset(input);rewrite(output);
  readln(s);
  readln(p,q);
  n:=length(s);
  for i:=1 to n do
    a[ord(s[i])-48]:=1;
  dfs(0,'');
  if j=0 then writeln('No answer');
  close(input);close(output);
end.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值