Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.02.2018, 19:16   #1
mr.perfect
 
Регистрация: 02.02.2018
Сообщений: 4
Печаль программа, печатающая в направлении убывания все делители введенного числа.

Напишите программу, печатающую в направлении убывания все делители введенного числа.

Не могу понять как сделать.
Подскажите плиз
mr.perfect вне форума Ответить с цитированием
Старый 03.02.2018, 21:25   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

В цикле от число/2 до 1 проверять есть ли число делителем. Если да, то вывод числа
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 03.02.2018, 22:03   #3
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

Я бы пошёл наоборот, от 1 до sqrt(число). Если разделилось нацело, то частное на печать сразу, а делитель в стек, чтобы потом напечатать в обратном порядке
Black Fregat вне форума Ответить с цитированием
Старый 10.02.2018, 08:30   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Позаимствовал из http://programmersforum.ru/showthread.php?t=315935
Код:
var a,i:integer;
begin
   readln(a);
   if a>=1 then
   begin
      Write(a,', ');
      for i:=a div 2 downto 2 do
         if a mod i=0 then
            Write(i,', ');
      writeln(1);
   end;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
найти все простые делители числа н keyshia_nicole Visual C++ 0 31.01.2014 18:39
Даны целые числа р и q. Получить все делители числа q, взаимно простые c г. Владан Паскаль, Turbo Pascal, PascalABC.NET 2 03.12.2012 23:39
Pascal. Найти все делители числа N torah Помощь студентам 0 24.11.2010 10:37
Найти все делители числа N torah Помощь студентам 33 06.11.2010 00:15