Mod

[Yermek]

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

 

[niello]

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

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

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

 

[ApeX]

И можна код оптимизировать если начинать перебор с 2 и до Num-1(Главное не забыть их вывести)

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