编程题一道：一的平方加二的平方加三的平方加……，加到一百的平方，这道题怎么做？（pascal语言）

如题所述

var i,s:longint;           //定义两个变量，i 表示“几的平方”的那个“几”，s存放1~i 的平方和；

begin

 s:=0;

 for i:=1 to 100 do     //i 从 1 循环到 100；

   s:=s+i*i;                  //把 i² 加到 s 里；

 writeln(s);                 //输出 s 最后的结果；

end.

一道简单的循环结构题，将它放在FPC里编译通过：

运行结果：