| ← Октябрь 2003 → | ||||||
|
1
|
2
|
3
|
4
|
|||
|---|---|---|---|---|---|---|
|
6
|
7
|
8
|
10
|
12
|
||
|
13
|
18
|
|||||
|
20
|
21
|
23
|
25
|
26
|
||
|
27
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
-1 за неделю
RusFAQ.ru: Программирование на языке Pascal
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на языке Pascal
Выпуск № 180
от 05.10.2003, 19:40
| Администратор: Имя: Sensey URL: Информационный ресурс ICQ: 105679124 Украина, Харьков |
О рассылке: Задано вопросов: 315 Отправлено ответов: 1098 Активность: 348.5 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Ayl Статус: Профессиональный Общий рейтинг: 117.46 [Подробней >>] |
Boriss Статус: Начальный Общий рейтинг: 142.3 [Подробней >>] |
Cybernetic Creature Статус: Профессиональный Общий рейтинг: 125.57 URL: В разработке [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 313. Доброе время суток. У меня к вам большая просьба, никак не могу решить эту задачу. Мы с другом по... (ответов: 3)
Вопросов: 1, ответов: 3
| Вопрос № 313 |
Доброе время суток.
У меня к вам большая просьба, никак не могу решить эту задачу. Мы с другом поспорили, что я смогу решить эту задачу к среде. Помогите, пожалуйста, на вас последняя надежда. Вот эта задача:
Найти натуральное число из интервала от 1 до n с максимальной суммой делителей.
Если будут вопросы по задаче, пишите. marshal90@mail.ru
Вопрос отправлен: 02.10.2003, 19:32
Отправитель: Дмитрий
[Следующий вопрос >>] [Список вопросов]
Отвечает Ayl
Приветствую Вас, Дмитрий!
А в чем проблема-то? Единственное, что может вызвать затруднение - это если N может быть больше, чем максимальное целое число, представляемое в машине. Тогда нужно писать собственную обработку операции деления и представления чисел.
А так перебираешь все числа от одного до N, находишь делители числа и считаешь сумму. Если сумма больше предыдущей - запоминаешь текущее число.
В общем, см. Приложение
Приложение:
Ответ отправлен: 03.10.2003, 11:23
Отправитель: Ayl
Отвечает Boriss
Здравствуйте, Дмитрий!
К какой среде? Надеюсь, не к "вчерашней".
Можно решить задачу "в лоб", хотя кажется мне, что что-то можно придумать, но некогда:
Приложение:
Ответ отправлен: 03.10.2003, 09:43
Отправитель: Boriss
Отвечает Cybernetic Creature
Добрый день, Дмитрий!
function Prostoye(Chislo:Integer):boolean;
var i:integer;
begin
Prostoye:=True;
for i:=2 to round(sqrt(chislo)) do
if Chislo mod i=0 then begin
Prostoye:=False;
Exit
end;
end;
function SkolkoDeliteley(Chislo:Integer):Integer;
var I:integer;del:Integer;sum:Integer;
begin
del:=2;sum:=0;
while Chislo>0 do
if chislo mod del=0 then begin
chislo:= chislo div del;
inc(sum);
end else inc(del);
SkolkoDeliteley:=sum;
end;
Ответ отправлен: 02.10.2003, 20:35
Отправитель: Cybernetic Creature
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (31) C / C++ (27) Perl (7) Builder / Delphi (22) Pascal (25) Basic / VBA (8) Java / JavaScript (10) PHP (13) Криптография (9) WinAPI (15) |
Пользователю Windows 95/98/Me (56) Windows NT/2000/XP (63) "Железо" (43) Поиск информации (27) |
Администратору Windows NT/2000/XP (33) Linux / Unix (15) |
Юристу Гражданское право (11) Семейное право (8) Трудовое право (9) КоАП (8) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
