|
|
back to boardSOLUTION (PASCAL)!!! ACCEPTED!!! Posted by hleb 12 Dec 2007 14:15 var i,z,n,m:word; a:array[1..1000] of byte; begin readln(n,m); for i:=1 to n do readln(a[i]); z:=(m mod n)+1; i:=0; repeat write(a[z]); if z=n then z:=1 else inc(z); inc(i); until i>=10; readln; end. Re: SOLUTION (PASCAL)!!! ACCEPTED!!! Posted by hleb 12 Dec 2007 14:17 ГЛЕБ ЗАТКНИСЬ, ТИМУС ГОВНО Re: SOLUTION (PASCAL)!!! ACCEPTED!!! Posted by svr 12 Dec 2007 20:58 tests on timus maximally optimized with respect to other sites Here we can see scintific interest and hornest. |
|
|