金币

题目
【题目描述】
国王将金币作为工资，发放给忠诚的骑士。第\(1\)天，骑士收到一枚金币；之后两天(第\(2\)天和第\(3\)天)里，每天收到两枚金币；之后三天(第\(4\)、\(5\)、\(6\)天)里，每天收到三枚金币；之后四天(第\(7\)、\(8\)、\(9\)、\(10\)天)里，每天收到四枚金币……这种工资发放模式会一直这样延续下去：当连续n天每天收到\(n\)枚金币后，骑士会在之后的连续\(n+1\)天里，每天收到\(n+1\)枚金币(\(n\)为任意正整数)。
你需要编写一个程序，确定从第一天开始的给定天数内，骑士一共获得了多少金币。
【输入】
一个整数（范围\(1\)到\(10000\)），表示天数。
【输出】
骑士获得的金币数。
【输入样例】
6
【输出样例】
14

思路
用\(while\)循环模拟。

代码

var
 n,t,i,s:longint;
begin
 readln(n);
 i:=1;
 while t+i<n do
  begin
   s:=s+i*i;
   t:=t+i;
   i:=i+1;
  end;
 if n>t then s:=s+(n-t)*i;
 write(s);
end.