| 
 | 
вернуться в форумWhats wrong with my short code ???can anybody help me ??? Послано  Saber 18 мар 2003 01:13 const maxn=10000; var   n,i,j,s,k   : integer;   a           : array[0..maxn] of integer; begin   readln(n,s);   fillchar(a,sizeof(a),0);a[s]:=1;   for i:=s+1 to n do     for j:=s to i-1 do       if (i-j)*100 mod j = 0 then         begin           if a[j]+1>a[i] then a[i]:=a[j]+1;         end;   k:=0;   for i:=s to n do     if a[i]>k then k:=a[i];   writeln(k); end.  |  
  | 
|