问题描述
有n个数 a[1],a[2],…,a[n]开始都是0
现在进行操作 t从1~n依次增加
每次把下标时t的倍数的数都反转(0变成1,1变成0)
如果最后a[i]为0,那么称此时的i为好数。
现在对于给定的n,求这时候的好数个数。
n<=1e15
Input
一个数n,表示有n个数。(n<=1e15)
Output
一个数,表示好数的个数。
样例
input
2
output
1
题解
我们可以发现,好数都是约数有偶数个的数。
而只有完全平方数的约数个数才为奇数。
所以ans=n-[sqrt(n)];
P党瑟瑟发抖quq
var n,ans:int64;
begin
readln(n);
ans:=n-sqr(trunc(sqrt(n)));
writeln(ans);
end.