Mod

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

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

    Yermek Гость

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

    niello Гость

    Можно сделать простым перебором
    //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 Гость

    Мне кажется достаточно будет вести перебор с 2 и до (Num div 2) и не забыть вывести 1 и Num.
     
Загрузка...
Статус темы:
Закрыта.

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