![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 27.12.2006
Сообщений: 5
|
![]()
[Pascal]
Найти натуральное число от 1 до 10000 с максимальной суммой делителей. 1.Преподаватель сказала что-то не так,помогите. 2.Как вывести все его делители на экран. Код:
|
![]() |
![]() |
![]() |
#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...
|
![]() |
![]() |
![]() |
#3 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
![]()
Вот рабочий вариант:
Код:
ICQ: 5311314
[SIGPIC][/SIGPIC] |
![]() |
![]() |