![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 11.02.2014
Сообщений: 5
|
![]()
Здравствуйте уважаемый программисты. Помогите написать текст программы с использованием подпрограмм функции.
Вот сама задача: Найти сумму целых чисел из промежутка от 1 до 200, у которых ровно 5 делителей. Её текст: Код:
Последний раз редактировалось Stilet; 24.02.2014 в 16:46. |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,318
|
![]()
Несколько замечаний:
1. Не надо перебирать все числа для поиска делителей. Достаточно перебрать до - i Div 2 (в соотвтетсвии с обозначением Ваших переменных) 2. У любого числа есть два делителя всегда: 1 и само число. Так что надо искать числа с тремя другими делителями. 3. Можно, используя Ваш код, написать функцию, которая возвращает число делителей (ищем только положительные делители). Код:
Как-то так, ... PS: Для чисел указанного диапазона только два числа имеют ровно 5 делителей: 16 и 81. Интересно...
Как-то так, ...
Последний раз редактировалось ViktorR; 24.02.2014 в 21:08. |
![]() |
![]() |
![]() |
#3 |
Регистрация: 11.02.2014
Сообщений: 5
|
![]()
Здравствуйте. Предложенный код программы не работает.
|
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
Здравствуйте!
Ну и где подтверждение этому?!!!! Пустословие! ![]() на мой взгляд, всё отлично работает: Код:
p.s. а вообще-то, если Вам кто-то помогает, выкладывает код, то в ответ принято благодарить, говорить спасибо, а не писать ересь... ![]() |
![]() |
![]() |
![]() |
#5 |
Регистрация: 11.02.2014
Сообщений: 5
|
![]()
Спасибо вам! Прошу прощения за мои манеры, забылся.
|
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]() |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
подпрограммы | nolx | Помощь студентам | 8 | 15.02.2011 18:08 |
подпрограммы!? | nolx | Помощь студентам | 0 | 31.05.2010 18:53 |
Подпрограммы-процедуры, подпрограммы-функции в Pascal | rishikesh | Помощь студентам | 19 | 18.05.2010 23:05 |
подпрограммы | @lenk@ | Помощь студентам | 1 | 04.03.2010 23:36 |