【样例说明】
每一首曲子播放前,三首曲子的权值分别为:
R_1 R_2 R_3
10 8 11 -> 播放 #3 11/2 = 5, 权值余量 = 1
16 13 0 -> 播放 #1 16/2 = 8
0 21 8 -> 播放 #2 21/2 = 10, 权值余量 = 1
11 0 18 -> 播放 #3 ...
var
n,q,i,max,maxi,a,b:longint;
f:array[0..100001] of longint;
begin
readln(n,q);
for i:=1 to n do readln(f[i]);
repeat
dec(q);max:=0;
for i:=1 to n do
if f[i]>max then begin max:=f[i];maxi:=i;end;
writeln(maxi);
a:=max div (n-1);
b:=max mod (n-1);
f[maxi]:=0;
for i:=1 to n do
if i<>maxi then f[i]:=f[i]+a;
for i:=1 to n do
if i<>maxi then
begin
if b=0 then break;
dec(b);
f[i]:=f[i]+1;
end;
until q=0;
close(input);
close(output);
end.
var
xia,i,j,k,n,m,l,r,mid:longint;
ans,x,y,max:longint;
a:array[0..10010]of longint;
begin
xia:=0;
ans:=0;
max:=0;
y:=0;
readln(n);
for i:=1 to n do
begin
inc(ans);
read(x);
a[i]:=x;
if x<y then
begin
k:=i;
if xia=0 then xia:=1;
end;
if (xia=1) and (x>y)
then
begin
xia:=0;
ans:=ans-1;
if ans>max then max:=ans;
for j:=k-1 to i do
begin
if (a[j]<=a[j+1]) then break;
end;
if j<>i then
ans:=i-j+1
else
ans:=0;
end;
y:=x;
end;
if ans>max then max:=ans;
writeln(max);
close(input);
close(output);
end.
var
n,m,i,j,k,cm,jt:longint;
ans:int64;
function ssr(sr,r:longint):longint;
var
n:longint;
begin
repeat
n:=sr mod r;
sr:=r;
r:=n;
until r=0;
ssr:=sr;
end;
begin
ans:=0;
read(n,m,cm,jt);
for i:=1 to n+1 do
begin
for j:=1 to m+1 do
begin
if (sqr(i)+sqr(j)>=sqr(cm)) and (sqr(i)+sqr(j)<=sqr(jt))and(ssr(i,j)=1)
then ans:=ans+(n-i+1)*(m-j+1)*2;
end;
end;
if cm<=1
then ans:=ans+n*(m+1)+m*(n+1);
writeln(ans,' ');
end.