Войти Регистрация Спроси ai-bota

Дано натуральное число. найти сумму его четных делителей pascal

Ответ:

dhdhhd55

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 оценок)

Популярные вопросы: Информатика

PoLiNa20061404

25.02.2021 14:15

Программа Кумир :Если направить Робота на стенку, возникает ошибка. Как она называется? *...

tony23

29.08.2020 17:50

№1Заполним с клавиатуры пустой массив из названии дней недель.№2Найти количество положительных элементов массива.Только без вектора и прочего,чтобы не подумали что списываю,...

KNV1980G

20.02.2022 02:15

Что может быть добавлено к текстовому документу послевставки нового объекта типа «Microsoft Equation 3.0»?...

НазарРезник

12.10.2021 14:16

Написать программу определения четности тела (на паскале)....

Jelinad

12.10.2021 14:16

Выписать из комедии н.в. гоголя “ревизор” по 2 односоставных предложения разных типов....

daniilshvanik

12.10.2021 14:16

Нужно сочинение на тему всегда ли мы добры к людям...

gabidullina200p00tmn

12.10.2021 14:16

(30142+z): 876=49 решите и сделайте проверку...

raxmatullin174

12.10.2021 14:16

Впрямоугольной трапеции abcd большая боковая сторона равна 7 см а меньшая диагональ 8 см. угол bca равен 60 градусов. найдите площадь и периметр...

паша535

12.10.2021 14:16

Сочинение на тему о чём я хочу спросить деда мороза . 4 класс....

sssooonnnyyyaaa1

12.10.2021 14:16

На каком материке самое большое разнообразие мировых и национальных религий? перечислите эти религии. и скажите,в каких частях материка или в каких странах этого материка...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку