Помогите!Срочно! "Составьте программу получения в порядке убывания всех делителей данного числа" - Паскаль, Turbo Pascal, PascalABC.NET

koston · 26.03.2008, 12:12

хелп ми!!!

_Dmitry · 26.03.2008, 12:23

Код:

for i:=n downto 1 do
  if (n mod i) = 0 then writeln(i);

koston · 26.03.2008, 12:34

все сделал. огромное спасибо=))))

26.03.2008, 12:12	#1
koston Пользователь Регистрация: 26.03.2008 Сообщений: 10	Помогите!Срочно! "Составьте программу получения в порядке убывания всех делителей данного числа" хелп ми!!!

26.03.2008, 12:23	#2
_Dmitry Участник клуба Регистрация: 02.09.2007 Сообщений: 1,193	Код: `for i:=n downto 1 do if (n mod i) = 0 then writeln(i);`

26.03.2008, 12:34	#3
koston Пользователь Регистрация: 26.03.2008 Сообщений: 10	все сделал. огромное спасибо=)))) Последний раз редактировалось koston; 26.03.2008 в 12:37.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Программа "Совершенные числа"	Reaper_Man	Помощь студентам	4	22.12.2007 00:38
Одна "шапка" на всех листах	Noor	Microsoft Office Excel	2	30.07.2007 15:39
Как произвести замену всех двузначных чисел на "00число которое заменено"	ВЯЧ	Microsoft Office Excel	5	06.12.2006 01:02