搜搜做题作业网数字平方和 pascal
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/08/19 18:08:27
数字平方和 pascal
给出一个自然数N（1
给出一个自然数N（1
Var
i,n,tot,sum:longint;
Begin
readln(n);
tot:=0; sum:=0;
for i:=0 to (n+1) div 2-1 do
inc(sum,i*i);
for i:=(n+1) div 2 to n-1 do
dec(sum,i*i);
Repeat
inc(tot);
dec(sum,(tot-1)*(tot-1));
inc(sum,2*sqr((tot+(n+1) div 2-1)));
dec(sum,(tot+n-1)*(tot+n-1));
Until sum=0;
writeln(n);
End.
比较蛋疼的一种方法= =
可以纯暴力- -
再问： kao 我输入一个5他输出一个5
再答： 萎了。。。 我错了。。。 把writeln(n)改为 writeln(tot) 。。。 再附上一段暴力的 Var tot,n:longint; i:longint; ans:longint; Begin readln(n); tot:=0; Repeat ans:=0; for i:=1 to (n+1) div 2 do inc(ans,(tot+i)*(tot+i)); for i:=(n+1) div 2+1 to n do dec(ans,(tot+i)*(tot+i)); inc(tot); Until ans=0; writeln(tot); End.
i,n,tot,sum:longint;
Begin
readln(n);
tot:=0; sum:=0;
for i:=0 to (n+1) div 2-1 do
inc(sum,i*i);
for i:=(n+1) div 2 to n-1 do
dec(sum,i*i);
Repeat
inc(tot);
dec(sum,(tot-1)*(tot-1));
inc(sum,2*sqr((tot+(n+1) div 2-1)));
dec(sum,(tot+n-1)*(tot+n-1));
Until sum=0;
writeln(n);
End.
比较蛋疼的一种方法= =
可以纯暴力- -
再问： kao 我输入一个5他输出一个5
再答： 萎了。。。 我错了。。。 把writeln(n)改为 writeln(tot) 。。。 再附上一段暴力的 Var tot,n:longint; i:longint; ans:longint; Begin readln(n); tot:=0; Repeat ans:=0; for i:=1 to (n+1) div 2 do inc(ans,(tot+i)*(tot+i)); for i:=(n+1) div 2+1 to n do dec(ans,(tot+i)*(tot+i)); inc(tot); Until ans=0; writeln(tot); End.