Discussion @ 1071. Nikifor 2 @ Timus Online Judge

ACM.Krupko_Victor[Ivanovo SPU] Wrong answer test(6) Why?Help me+++++ [5] // Problem 1071. Nikifor 2 3 Apr 2005 23:19

program de;
   var
   a,n,i,r,x,y,step,j:longint;
   q:boolean;
   s1,s2,s:string;
begin
step:=1;
q:=false;
read(x);
read(y);
repeat
    s1:='';
    s2:='';
    n:=x;
    inc(step);
    repeat
     i:=n mod step;
     n:=n div step;
     str(i,s);
     s1:=s+s1;
    until n=0;
    r:=y;
    repeat
     i:=r mod step;
     r:=r div step;
     str(i,s);
     s2:=s+s2;
    until r=0;
    j:=1;
    for i:=1 to length(s1) do
     if (s1[i]=s2[j]) and (j<>length(s2)+1) then inc(j);
    if j=length(s2)+1 then q:=true;
until (step=x+1) or q;
if q then writeln(step)
else writeln('No solution');
end.

Burunduk1 Re: Wrong answer test(6) Why?Help me+++++ [4] // Problem 1071. Nikifor 2 4 Apr 2005 00:16

For test 11 10
Your program writes 11
My AC program writes 'No solution'

ACM.Krupko_Victor[Ivanovo SPU] Systems of calculation from 2 up to 16 or ..... [3] // Problem 1071. Nikifor 2 4 Apr 2005 00:58

Burunduk1 Re: Systems of calculation from 2 up to 16 or ..... [2] // Problem 1071. Nikifor 2 4 Apr 2005 01:35

My AC program uses bases from 2 to 100000

ACM.Krupko_Victor[Ivanovo SPU] How???? [1] // Problem 1071. Nikifor 2 4 Apr 2005 02:12

How to organize translation in other system of calculation, it is more 9

Burunduk1 Re: How???? // Problem 1071. Nikifor 2 4 Apr 2005 02:44

Part of my AC program:

leny = lenx = 0;
while (x > 0)
ax[lenx++] = x % base, x /= base;
while (y > 0)
ay[leny++] = y % base, y /= base;

x, y - decimal numbers
base - system of calculation
ax[], ay[] - x and y in new system
lenx, leny - its lengths

Discussion of Problem 1071. Nikifor 2