|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.02.2014, 15:58 | #1 |
Регистрация: 11.02.2014
Сообщений: 5
|
Подпрограммы!!!
Здравствуйте уважаемый программисты. Помогите написать текст программы с использованием подпрограмм функции.
Вот сама задача: Найти сумму целых чисел из промежутка от 1 до 200, у которых ровно 5 делителей. Её текст: Код:
Последний раз редактировалось Stilet; 24.02.2014 в 16:46. |
24.02.2014, 20:50 | #2 |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,309
|
Несколько замечаний:
1. Не надо перебирать все числа для поиска делителей. Достаточно перебрать до - i Div 2 (в соотвтетсвии с обозначением Ваших переменных) 2. У любого числа есть два делителя всегда: 1 и само число. Так что надо искать числа с тремя другими делителями. 3. Можно, используя Ваш код, написать функцию, которая возвращает число делителей (ищем только положительные делители). Код:
Как-то так, ... PS: Для чисел указанного диапазона только два числа имеют ровно 5 делителей: 16 и 81. Интересно...
Как-то так, ...
Последний раз редактировалось ViktorR; 24.02.2014 в 21:08. |
25.02.2014, 10:52 | #3 |
Регистрация: 11.02.2014
Сообщений: 5
|
Не работает!
Здравствуйте. Предложенный код программы не работает.
|
25.02.2014, 11:51 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Здравствуйте!
Ну и где подтверждение этому?!!!! Пустословие! на мой взгляд, всё отлично работает: Код:
p.s. а вообще-то, если Вам кто-то помогает, выкладывает код, то в ответ принято благодарить, говорить спасибо, а не писать ересь... |
25.02.2014, 13:36 | #5 |
Регистрация: 11.02.2014
Сообщений: 5
|
Прошу прощения!
Спасибо вам! Прошу прощения за мои манеры, забылся.
|
25.02.2014, 13:44 | #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 |