Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
тигр186
02.04.2022 23:23 •
Информатика
Дано натуральное число. определить количество его нечетных делителей. написать программу паскаль)
Показать ответ
Ответ:
У4КГРВ
13.07.2020 22:15
Var n,i,k:Integer;
Begin
Read(n);
for i:=1 to n do
if (n mod i = 0) and (i mod 2 <>0) then k:=k+1;
Writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
MilkiWika
06.06.2023 01:05
Запиши целое число в виде суммы разрядных слагаемых — единиц, десятков, сотен, тысяч и так далее. 30048= ⋅10000+ ⋅1000+ ⋅100+ ⋅10+ ⋅1 30170= ⋅10000+ ⋅1000+ ⋅100+...
Cobra237
18.05.2021 23:38
Написать программу которая выводит пример на умножение однозначных чисел ( рандомно)с ветвления !...
acherevachanna
18.05.2021 23:38
Пакет программ работой компьютера и обеспечивающий взаимодействие между человеком и компьютером это...
abiersack
18.05.2021 23:38
Сколько разрядов содержит 256-цветном рисунке?...
777angel777likoy8mjs
17.08.2020 04:45
Python. Нужно чтобы программа считала разность 1000 и 7 до того момента, пока ответ не станет отрицательным. т.е: 1000-7=993, 993-7=986 и так далее....
tsovinarjangiryan
10.05.2022 23:50
составить скрипт для решения задачи в скретч:На промежутке от А до В вывести все четние числа учитивая А и В.Пример: для промежутка чисел от 4 до 12.Програма должна...
Yalikhan
17.06.2022 08:07
Составьте программу написания своего имени на экране в строчку сто...
roksi100200
20.12.2021 00:57
Закончите предложение (дайте наиболее полный ответ) компьютер - это 1.электронный прибор с клавиатурой и экраном 2. устройство для выполнения вычислений 3. универсальное...
vladgas78
18.05.2021 09:24
Скиньте карту аргументов на ЕГЭ на ИС...
кристина1966
05.08.2021 07:25
Год принятия первой конституции во Франции...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
Read(n);
for i:=1 to n do
if (n mod i = 0) and (i mod 2 <>0) then k:=k+1;
Writeln(k);
end.