вам дано целое число n.
найдите количество чисел от 1 до n, которые имеют четное количество делителей.
формат входных данных
в первой строке одно целое число n (1≤n≤10^9)
формат выходных данных
выведите ответ
1.1≤n≤1000
2.1≤n≤10^5
3.1≤n≤10^9
пример
стандартный ввод
10
стандартный вывод
7
function opkd(n: integer): integer;
var i,k: integer;
begin
k:=0;
for i:=1 to n do if n mod i=0 then k:=k+1;
opkd:=k;
end;
var n,i,k: integer;
begin
k:=0;
readln(n);
for i:=1 to n do if opkd(i) mod 2=0 then k:=k+1;
write(k);
end.