加法实现数的平方

方法一：
var n:longint;
begin
readln(n);writeln(n*n);
end.
根据平方的定义，我们可以直接输出n的平方的值。
方法二：
var n:longint;
begin
readln(n);writeln(sqr(n));
end.
pascal里有求平方的函数，我们可以利用这个函数求n平方的值。
刚刚发现你说用加法实现，平方用加法实现干什么？如果你非要用加法实现不可的话，那就应该这样：
var n,i,s:longint;
begin
readln(n);s:=0;for i:=1 to n do s:=s+n;writeln(s);
end.
绝对正确，绝对原创，打击盗版，赶快选我！