Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ghujftu
12.03.2022 05:22 •
Информатика
Дано натуральное число. найти сумму его четных делителей pascal
Показать ответ
Ответ:
Мегамозг0511
28.06.2020 01:40
For i:=1 to n do begin
if ((n mod i = 0) and (i mod 2=0)) then sum:=sum+1;
end;
0,0
(0 оценок)
Популярные вопросы: Информатика
ZloYDedyskA
25.08.2021 01:19
Исполнитель Калькулятор преобразует число на экране. У исполнителя есть три команды, которым присвоены номера: Прибавить 1 Умножить на 3 Умножить на 4 Сколько существует...
lnatahozqc8g
29.05.2023 14:43
Задача. Числа 67,103,136 с волшебного чёрного ящика превратили в 56,92,125. Как это удолось ....
skZ1
28.05.2020 20:07
Нужно перевести в десятичную. 1001010(2) ; 110101101,00011(2) ; 775,11 (8) ; 294,3 (16)...
MercerNani
08.06.2020 06:20
Обьясните, как и что выполняется в этом коде: var s, n: integer; begin s : = 2; for n : = 2 to 5 do s : = s + n*2; writeln(s); end....
Kisaaaa111
08.04.2020 21:50
Петя отправил маше сообщение: ! что нам задали по информатике? определить информационный объем этого сообщения, если известно, что петя использовал компьютерный алфавит.(...
gas2013
16.06.2021 08:09
«Направь стрелу» героя сказки к его цели в жизни и запиши цифрами в тетрадь 1.СТУДЕНТ1.жить – при выгода) 2.ПРОФЕССОРСКАЯ ДОЧЬ2.жить – доставлять радость 3.СОЛОВЕЙ3.жить...
llleeennn
06.03.2022 06:42
Составить алгоритм чтения параграфа...
yulyapikulyk
20.05.2023 04:41
Оцените силу ядерного взаимодействия протонов ядра на расстоянии 10^-15 м...
katerinalavrenchuk
20.05.2023 04:41
Подключите графический режим в программе измените программутак, чтобы сообщение ꞌположительноеꞌ выводилось красным цветом, а сообщение ꞌне положительноеꞌ — синим.(паскаль...
зара1010101
20.05.2023 04:41
Нужно алгоритм команд номер команды 1 2 3 4 5 6 7 8 9...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
if ((n mod i = 0) and (i mod 2=0)) then sum:=sum+1;
end;