【NOIP2017练习】溢出（模拟）

题意：

思路：

a*b<=c <====> b<=c div a

var ch,maxs,s:ansistring;
    v,k,i,maxl,l,len,cnt,cas:longint;
    now,tmp,max:qword;
    flag:boolean;

begin
 assign(input,'overflow.in'); reset(input);
 assign(output,'overflow.out'); rewrite(output);
 readln(cas);
 for v:=1 to cas do
 begin
  readln(ch); len:=length(ch);
  max:=1; k:=0;
  for i:=1 to len do
   if (ch[i]>='0')and(ch[i]<='9') then k:=k*10+ord(ch[i])-ord('0');
   if k=8 then maxl:=3;
  if k=16 then maxl:=5;
  if k=32 then maxl:=10;
  if k=64 then
   if ch[1]='i' then maxl:=19
     else maxl:=20;
  if ch[1]='i' then dec(k);
  for i:=1 to k-1 do max:=max*2;
  max:=max-1+max;
  str(max,maxs);
  readln(ch); len:=length(ch);
  flag:=false;
  i:=0; now:=1; cnt:=0;
  while (not flag)and(i<=len) do
  begin
   inc(i); tmp:=0; l:=0; s:=''; inc(cnt);
   while (i<=len)and(ch[i]>='0')and(ch[i]<='9') do
   begin
    inc(l); s:=s+ch[i];
    if (l>maxl)or(l=maxl)and(s>maxs) then
    begin
     flag:=true; break;
    end;
    tmp:=tmp*10+ord(ch[i])-ord('0');
    inc(i);
   end;
   if flag then break;
   if now>max div tmp then
   begin
    flag:=true; break;
   end;
   now:=now*tmp;
  end;
  if flag then writeln(cnt)
   else writeln('never');
 end;

 close(input);
 close(output);
end.