【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:= to cas do
  begin
   readln(ch); len:=length(ch);
   max:=; k:=;
   for i:= to len do
    if (ch[i]>='')and(ch[i]<='') then k:=k*+ord(ch[i])-ord('');
    if k= then maxl:=;
   if k= then maxl:=;
   if k= then maxl:=;
   if k= then
    if ch[]='i' then maxl:=
      else maxl:=;
   if ch[]='i' then dec(k);
   for i:= to k- do max:=max*;
   max:=max-+max;
   str(max,maxs);
   readln(ch); len:=length(ch);
   flag:=false;
   i:=; now:=; cnt:=;
   while (not flag)and(i<=len) do
   begin
    inc(i); tmp:=; l:=; s:=''; inc(cnt);
    while (i<=len)and(ch[i]>='')and(ch[i]<='') 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*+ord(ch[i])-ord('');
     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.