Срочно!! помогите!!
Вам дано целое число n.
Найдите количество чисел от 1 до n, которые имеют четное количество делителей.
Формат входных данных
В первой строке одно целое число n (1≤n≤10^9)
Формат выходных данных
Выведите ответ
1.1≤n≤1000
2.1≤n≤10^5
3.1≤n≤10^9
Пример
Стандартный ввод
10
Стандартный вывод
7
nurtuleusid:
вы решили если да отправьте ответ пожалуйста
Ответы
Ответ дал:
3
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.
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад