Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
KY3bMA228
17.12.2020 00:11 •
Другие предметы
Хто такая Насця Закрэўская?
Ответ:
вероника1059
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 оценок)
Популярные вопросы: Другие предметы
HELPLIZA1
09.07.2021 03:20
Какое количество хлебного кваса можно приготовить при наличии 10 кг экстракта хлебного кваса?...
nastalove22
14.09.2020 03:18
Начертите с указанием размеров Основание модели - прямоугольная призма высотой 25 мм (вдоль оси Z), шириной 60 мм (вдоль оси Y), длиной 100 мм (вдоль оси Х). Снизу, посередине,...
Nobd
18.11.2020 12:30
Ыбырай Алтынсарин деректер жазу...
Поэзия
16.03.2023 01:52
Макаланын канча туру бар?...
danmin444
10.12.2022 17:01
Решитть неравенство: (x^2+7x-8)^2+(x^3+2x-3)^2 =0 ^ - степень если что, ответ {1}...
nabisat2017
10.12.2022 17:01
При изобарном нагревании объем гелия увеличился в 3 раза. какую работу совершил газ ? какое количество теплоты ему передано ? масса гелия 12г., начальная температура -123...
liya20042812
10.12.2022 17:01
Нужно написать свой распорядок дня....
dimakolobanov2
10.12.2022 17:01
Составить уравнение касательной к графику функции y=2x-x^2 паралельно оси абсцисс...
chemposovadiana
10.12.2022 17:01
Участок земли имеет форму прямоугольника,длина которого 80 м,а ширина на 50 м меньше.он обнесен проволокой в 9 рядов.сколько метров проволоки потребовалось?...
aiis171
10.12.2022 17:01
Уавтора должно быть особое чувство родного языка, и это, по-моему, достигается постоянным и любовным чтением образцов. но при наличии таланта это чувство меры является...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.