Mod

Тема в разделе "Delphi - FAQ", создана пользователем Yermek, 26 сен 2008.

Статус темы:
Закрыта.
  1. Yermek

    Yermek Гость

    Репутация:
    0
    Помогите решить задачу
    Например
    Вводим любое число и нажимаем кнопку
    и она высчитывает на сколько она делится
    20 делиться на 1,2,4,5,10,20
     
  2. niello

    niello Гость

    Репутация:
    0
    Можно сделать простым перебором
    //num:=20;
    for i:=1 to Num do
    begin
    if (num MOD i)= 0 then Write(i);//проверяем если нет остачит выводим

    end;
    Также можна организовать совершенно другой вывод в Мемо например, и счетчик - их колличество ;-)
    Код должен пахать(тока не вздумай так выводить если не создал консоль;-) )

    чуть не забыл начинай перебор с 1!!! а то если с 0 комп тебе не выдаст БЕСКОНЕЧНОСТЬ! И можна код оптимизировать если начинать перебор с 2 и до Num-1(Главное не забыть их вывести)
     
  3. ApeX

    ApeX Гость

    Репутация:
    0
    Мне кажется достаточно будет вести перебор с 2 и до (Num div 2) и не забыть вывести 1 и Num.
     
Загрузка...
Похожие Темы - Mod
  1. IioS
    Ответов:
    4
    Просмотров:
    133
  2. mr.idiot
    Ответов:
    1
    Просмотров:
    115
  3. Vander
    Ответов:
    5
    Просмотров:
    1.023
  4. Vander
    Ответов:
    0
    Просмотров:
    281
  5. rinsk
    Ответов:
    4
    Просмотров:
    442
Статус темы:
Закрыта.

Поделиться этой страницей