剩余天数(m-g)有2种 1.大于等于i：总金币直接+i*i，然后累加i天 2.小于i : 总金币剩下的天数*i，然后g=m
var
m,
i,g,x:longint;
begin
readln(m);
i:=
0; x:=
0; g:=
0;
while g<>m do
begin
i:=
i+
1;
if g+
i<=m then begin x:=x+
i*
i; g:=g+
i;
end
else begin x:=x+
i*(m-g); g:=m;
end;
end;
writeln(x);
end.
转载请注明原文地址: https://ju.6miu.com/read-968027.html
