Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
berezovskatanap09xfx
23.05.2020 00:51 •
Другие предметы
Хто такая Насця Закрэўская?
Показать ответ
Ответ:
sabinochka1709
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 оценок)
Популярные вопросы: Другие предметы
krubtsova79
18.04.2020 00:33
Почему по железной дороге в некоторых цистернах запрещена перевозка пропилена?...
kdhsjs
05.01.2020 07:20
Построить комплексный чертёж детали, достроив третью проекцию....
Кирилл11221
13.06.2020 07:48
Чим відрізняється республіка від монархії)? ...
5555321
30.01.2021 07:54
Составьте таблицу истинности логического выражения f= a˅ ¬b˄¬(a˅b)...
xenyazhardin
31.01.2023 05:44
Опишите случай, когда вы поняли, что учитель или любой другой взрослый не прав. как вы поступили?...
Ден4ик11111111
07.02.2023 04:35
Опишите случай когда кто-то изменил твоё мнение или поведение?...
Kotvo4cah
13.04.2020 08:03
Соответствие между миссией, целями организации и их характеристиками 1.миссия: 2.цели: а)общая культура б)совместимость в)смысл деятельности г)гибкость и верования д)желаемые...
arustamianan
01.03.2020 11:48
По экзамену естествознание такой вопрос будет там первые исследователи земли использовали метод: статистический, описание, космический....
Neo11118
08.09.2020 08:16
Кто шарит на арабском, как будет имя элвин?...
фуад05
09.09.2022 13:43
Не знаю, есть тут шахматисты или нет, если есть...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.