Wild Number (Standard IO)

来源：互联网发布：淘宝怎么买微信号编辑：程序博客网时间：2024/05/10 06:22

题意/Description:

Wild Number是一个有数字和问号组成的字符串（例如36?1?8）。一个数字与一个Wild Number匹配，当且仅当它们长度相等且不是问号的位置上对应相等。例如365198匹配36?1?8，但360199,361028,36128都不匹配。

读入/Input：

输入有相同长度的两行，第一行表示Wild Number，第二行一个整数X，X无前导零。数字长度在1-10之间。

输出/Output：

输出大于X且匹配Wild Number的n位数有多少个。（n是Wild Number的长度.）

题解/solution：

第一，这是一个数，只要第一位数大（题目说位数相同），这个数肯定大，即后面的“？”随便取。第一位数相同，后面的数字大，这数大。......然后看程序吧。

点赞，点赞，点赞，点赞，点赞，点赞，点赞。

代码/Code：

var  s1,s2:string;  l,ans:longint;  b:boolean;procedure main;var  i,j,sum,k:longint;begin  l:=length(s1);  k:=0; ans:=0;  for i:=1 to l do    if s1[i]='?' then inc(k);  b:=true;  for i:=1 to l do    if s1[i]='?' then      begin        sum:=1;        for j:=1 to k-1 do          sum:=sum*10;        if b then sum:=sum*(9-(ord(s2[i])-48)) else          begin            sum:=sum*10;            write(ans+sum);            halt;          end;        ans:=ans+sum;        dec(k);      end else      begin        if (s2[i]>s1[i]) and b then          begin            writeln(ans);            halt;          end;        if s2[i]<s1[i] then b:=false;      end;end;begin  readln(s1);  readln(s2);  main;  if not b then writeln(ans+1)           else writeln(ans);end.

4 0