Срочно!! помогите!!
Вам дано целое число n.
Найдите количество чисел от 1 до n, которые имеют четное количество делителей.
Формат входных данных
В первой строке одно целое число n (1≤n≤10^9)
Формат выходных данных
Выведите ответ
1.1≤n≤1000
2.1≤n≤10^5
3.1≤n≤10^9
Пример
Стандартный ввод
10
Стандартный вывод
7
Вам дано целое число n.
Найдите количество чисел от 1 до n, которые имеют четное количество делителей.
Формат входных данных
В первой строке одно целое число n (1≤n≤10^9)
Формат выходных данных
Выведите ответ
1.1≤n≤1000
2.1≤n≤10^5
3.1≤n≤10^9
Пример
Стандартный ввод
10
Стандартный вывод
7
More Questions From This User See All
Answers & Comments
Verified answer
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.