数字平方和 pascal
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/08/19 18:08:27
数字平方和 pascal
给出一个自然数N(1
给出一个自然数N(1
![数字平方和 pascal](/uploads/image/z/19654098-42-8.jpg?t=%E6%95%B0%E5%AD%97%E5%B9%B3%E6%96%B9%E5%92%8C+pascal)
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.