вам дано целое число n.
найдите количество чисел от 1 до n, которые имеют четное количество делителей.
формат входных данных
в первой строке одно целое число n (1≤n≤10^9)
формат выходных данных
выведите ответ
1.1≤n≤1000
2.1≤n≤10^5
3.1≤n≤10^9
пример
стандартный ввод
10
стандартный вывод
7
милаха3451
1
06.12.2019 08:50
9
Другие вопросы по теме Информатика
Urannnnnn
11.07.2019 01:00
lena08m
11.07.2019 01:00
romanesterov2
11.07.2019 01:00
yaksyta
23.07.2019 04:40
агамтасия
23.07.2019 04:40
annmslna2044
05.04.2020 13:03
banni11
05.04.2020 12:59
snagaytsev1
28.08.2019 01:40
Популярные вопросы
- А) построить график функции 2x-3 б) укажите с графика равно чему равно...
3 - Угидроидных половые органы образуются...
1 - Ширина садового участка на 10 метров меньше его длины а длина забора...
3 - 8класс! -установилось ли гражданское равноправие? - какие общественные...
1 - Найдите значения выражения 3√2cos855°...
3 - Будьте хорошими человеками . 50 найдите такие числа х и у, чтобы числа...
3 - Саше 4 года,оля в 4 раза старше саши,а игорь на 8 лет младше оли.сколько...
3 - Решить графически икс в квадрате плюс четыре икс равно икс плюс четыре...
2 - Любите ли вы природа согласны ли вы, писатель напишите небольшое сочинение...
1 - Вдетский дом завезли 7 ящиков фруктов по 8 кг в каждом. после того,как...
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.