Question

Срочно!! помогите!!
Вам дано целое число n.
Найдите количество чисел от 1 до n, которые имеют четное количество делителей.

Формат входных данных
В первой строке одно целое число n (1≤n≤10^9)

Формат выходных данных
Выведите ответ

1.1≤n≤1000
2.1≤n≤10^5
3.1≤n≤10^9

Пример
Стандартный ввод
10

Стандартный вывод
7

Answer 1

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.