ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ В ПАСКАЛЕ

0
Дано натуральное число.
а) Получить все его делители.
б) Найти сумму его делителей.
в) Найти сумму его четных делителей.
г) Определить количество его делителей.
д) Определить количество его нечетных делителей.
е) Определить количество его делителей. Сколько из них четных?
ж) Найти количество его делителей, больших D.
21 апреля аноним,  в категории Компьютеры, Интернет
 
Ваш ответ
Отображаемое имя (по желанию):
Анти-спам проверка:

1 Ответ
0
21 апреля аноним, 
вот программа, занеси все делители в массив и делай с ними все, что хочешь, не получится - пиши
 uses crt; { все делители числа А}
var
 i,a:integer;
 begin
 readln(a);
for i:=1 to a do
 if (a mod i = 0)
 then
 writeln (i);
 end
Copyright © 2016 Вопросы и ответы онлайн - sovety.info | Для связи: site@sovety.info
Мнение редакции может не совпадать с мнением авторов вопросов и ответов.
Индекс цитирования
...