IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Совершенные числа, и что-то еще про цикл.
Ромка
сообщение 20.02.2005 20:31
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 17
Пол: Мужской

Репутация: -  0  +


Составить программу для графического изображения делимости чисел от 1 до n (n - исходное данное). В каждой строке надо печатать число и сколько плюсов, сколько делителей у этого числа. Например, если исходное данное - число 4, то на экране должно быть напечатано:


1+

2++

3++

4+++

Составить программу получения всех совершенных чисел, меньших заданного числа n. Число называется совершенным, если равно сумме всех своих положительных делителей, кроме самого этого числа. Например, 28 - совершенно, так как 28=1+2+4+7+14.
Даны натуральные числа n, m. Получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m.
Даны натуральные числа n и m. Найти все пары дружественных чисел, лежащих в диапазоне от n до m. Два числа называются дружественными, если каждое из них равно сумме всех делителей другого (само число в качестве делителя не рассматривается).
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Ромка   Совершенные числа   20.02.2005 20:31
volvo   Правила читать будем? FAQ и поиск зачем? Совершенн...   20.02.2005 20:47
Ромка   ne nashol !!!   20.02.2005 20:52
Altair   плохо искал.   20.02.2005 21:04
Ромка   Rebjat, mozhet prosto pomozhete... Esli vam vsjo j...   20.02.2005 21:07
Altair   [b]Поиск совершенных чисел. [code]VAR I,N,Summa...   20.02.2005 21:50
Ромка   pishel ordinal expression expected na etoj stroke ...   20.02.2005 21:58
Altair   так: VAR I,N,Summa: LONGINT; Delitel: INTEGER;...   20.02.2005 22:20
Altair   еще один пост на транслите и тема будет закрыта...   20.02.2005 22:26
Ромка   ссори, не заметил твоё мсг. всё транслиту - нет ...   20.02.2005 22:27
Ромка   Даны натуральные числа n и m. Найти все пары друже...   21.02.2005 18:20
Altair   а ты покажи что получается... Код в студию, что уж...   21.02.2005 18:30
Ромка   uses crt; var n,m,del1,del2,per,vtor,summ1,summ2...   21.02.2005 18:59
volvo   Нет, она не виснет, она просто очень долго считает...   21.02.2005 19:29
Ромка   Спасибо. Ну может кто-то знает полегче вариант, а ...   21.02.2005 21:06
volvo   Чем легче вариант - тем дольше он будет работать....   21.02.2005 21:12
Ромка   Спасибо, вы очень помогли!   21.02.2005 21:30


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 2:17
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"