|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.01.2007, 21:50 | #1 |
Регистрация: 27.12.2006
Сообщений: 5
|
Что-то не так
[Pascal]
Найти натуральное число от 1 до 10000 с максимальной суммой делителей. 1.Преподаватель сказала что-то не так,помогите. 2.Как вывести все его делители на экран. Код:
|
16.01.2007, 21:57 | #2 |
Студент
Форумчанин
Регистрация: 10.11.2006
Сообщений: 196
|
Если брать по твоему коду, то следующие строки
выведут все делители (также как ты искал их): for i:=1 to ind do if (ind mod i) = 0 then write(i,' ');
Visita Interiorem Terrae Rectificando Operae Lapidem...
|
16.01.2007, 22:06 | #3 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Вот рабочий вариант:
Код:
ICQ: 5311314
[SIGPIC][/SIGPIC] |