Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
derakA
05.06.2020 12:55 •
Другие предметы
Хто такая Насця Закрэўская?
Показать ответ
Ответ:
AloysiuS
01.06.2020 19:59
Var
i, n, k: integer;
begin
read(n);
for i := 1 to n do
if (i mod 2 = 0) and (n mod i = 0) then
k := k + 1;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
BONDsCNOPCOI
13.06.2021 06:40
Дзеясловы часу: 1) утвараюцца:а) ад дзеясловаў толькі закончанага трывання;б) ад дзеясловаў закончанага і незакончанагатрывання;в) ад дзеясловаў толькі незакончанага...
дядялёняййццйуйу
16.04.2020 18:04
Ймовірність влучання в ціль при кожному пострілі з двох із п яти рушниць дорівнює 0,8, а з трьох інших - 0,9. Знайти ймовірність влучання в ціль з навмання взятої рушниці....
madamnowiczkai
04.02.2023 18:50
На якій відстані від ока потрібно тримати голівку булавки, щоб вона затулила Місячний диск? Діаметр булавочної голівки 3 мм, радіус Місяця 1740 км, відстань від Земля...
marinakomarova
30.08.2021 19:43
Теория вероятностей и статистика...
ilkasb
14.03.2022 15:43
Астрономия, очень Определите афельное и перигельное расстояния Земли, если ее эксцентриситет е = 0,0167...
meladse1105
14.03.2022 15:43
Эссе на тему Почему мы должны знать три языка...
сонечка3332002
22.10.2021 00:11
А. Имангаливтын башылык ролін анык таныз ...
аааааа333
17.11.2022 01:20
14.Сопоставьте объекты стандартизации национальных стандартов и технических условий ...
nikaa5522
05.04.2020 21:05
ТБЖ Жаратылыстану 5класс...
наташа978
30.10.2022 11:34
составьте уравнения реакций взаимодействия HCl(в.р.) и Al(тв.в.). Покажите агрегатные состояния веществ ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, n, k: integer;
begin
read(n);
for i := 1 to n do
if (i mod 2 = 0) and (n mod i = 0) then
k := k + 1;
writeln(k);
end.