Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
famousgirl
05.11.2021 13:42 •
Информатика
Найти сумму четных делителей введенного целого числа(pascal abc.net)
Показать ответ
Ответ:
viptimoshe1
06.10.2020 20:53
Program n1;
var a,sum,i: integer;
begin
sum:=0;
readln(a);
for i:=1 to a div 2 do if (a mod i) = 0 then
if i mod 2=0 then sum:=sum+i;
if a mod 2=0 then sum:=sum+a;
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
стулка
25.11.2020 17:55
25 в таблице расписание уроков на один учебный день для учеников 6 класса: № урока время предмет 1 8.00 - 8.45 2 8.55 - 9.40 3 9.50 - 10.35 музыка 4 10.50 - 11.35 информатика...
juliacollins5
07.12.2021 01:33
Линия связи, по которой данные пересылаются между устройствами компьютера. (10 букв), не пишите мусор...
berezniki14
20.11.2021 08:31
Найдите верные определения для представленных терминов молю и можно адекватный ответ...
lhimhenko2000
19.11.2020 23:05
Какой объем занимают 540г воды?...
kli200192uasmi
13.11.2020 09:42
Вася едет с точки Б в точку А, с пересадками и по дороге хочет зайти в магазин. А магазины находятся только рядом с остановками. Как же Васе добратся в точку А самым коротким...
elenakovaleskau
06.07.2020 00:36
Чему равна проекция силы на ось х, действующей на тело массой 2кг, если под действием этой силы тело движется прямолинейно и уравнение его движения имеет вид: х=2+2t+4t²...
PaFaS123
26.11.2020 14:10
Суммативное оценивание за 2 четверть по предмету «Русский язык» 6 классПродолжительность - 40 минутКоличество – 15 Чтение Задание 1Прочитайте текст, выполните задания...
1941108
30.05.2022 04:37
Task 2. Mark sentences as True or False. 1. , The planetary defence team at NASA had identified and logged 90 per cent of the comet. 2. The middle-sized asteroids wouldn’t...
AnastasiaPonomarenko
05.01.2020 03:03
На окружности, заданной уравнением (x+2)²+y²=25, найдите точки с абсциссой 1....
INNADANILOVA
13.03.2021 05:38
Сколько лошадей было впряжено в повозку княгини Трубецкой, героини поэмы Русские женщины ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,sum,i: integer;
begin
sum:=0;
readln(a);
for i:=1 to a div 2 do if (a mod i) = 0 then
if i mod 2=0 then sum:=sum+i;
if a mod 2=0 then sum:=sum+a;
writeln(sum);
end.