Предмет: Информатика,
автор: MyVanFly
Срочно!! помогите!!
Вам дано целое число 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.
Интересные вопросы
Предмет: География,
автор: naummaks02
Предмет: Математика,
автор: mila00893
Предмет: Математика,
автор: Аноним
Предмет: Физика,
автор: SemenPen
Предмет: История,
автор: Spiltmilk