Пример 4.1. Поиск всех делителей целого числа

Постановка задачи: дано натуральное число, найти все его делители. Вид формы с компонентами:

Процедура обработки щелчка на кнопке "Расчет"

procedure TForm1.Button1Click(Sender:TObject);

var x,i: integer;

pol: integer; {половина исследуемого числа}

tec: integer; {текущее значение делителя}

begin ListBox1.Items.Clear; {очистка списка}

x:= abs (StrToInt(Edit1.Text));

pol:= x div 2; {половина числа}

tec:= 2; {минимальный делитель} i:= 0;

while tec <= pol do

Begin

if x mod tec=0 then begin

inc (i);{следующий номер делителя}

ListBox1.Items.Add(IntToStr(i)+

’-й делитель равен’+IntToStr(tec)); end;