[@_L_E_X]

в Listbox вывести числа меньшие 100 которые делятся на 3 без остатка.

[PhoeniX]

Код:

var
  i: integer;
begin
  for i := 1 to 100 do
    if i mod 3 = 0  then
      ListBox1.Items.Add(IntToStr(i));
end;

[Bargest]

Код:

ListBox1.Items.Add('3 6 9 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99');

[angvelem]

Сообщение от Bargest

Код:

ListBox1.Items.Add('3 6 9 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99');

Посмеялся.

[PhoeniX]

Сообщение от angvelem

Посмеялся.

А он прав. С точки зрения оптимизации этот код более верный. Ибо большинство вычислений лучше выполнять на стадии написания кода и/или компиляции.

[NumLock]

только так:

Код:

ListBox1.Items.Text:='0'#13'3'#13'6'#13'9'#13'12'#13'15'#13'18'#13'21'#13'24'#13'27'#13'30'#13'33'#13'36'#13'39'#13'42'#13'45'#13'48'#13'51'#13'54'#13'57'#13'60'#13'63'#13'66'#13'69'#13'72'#13'75'#13'78'#13'81'#13'84'#13'87'#13'90'#13'93'#13'96'#13'99';

имхо более правильно, чтобы не в одном элементе были все значения

[Bargest]

вывести числа меньшие 100 которые делятся на 3 без остатка

Кстати. А тут ведь не написано вывести все числа и что числа натуральные или хотя бы просто положительные...

[NumLock]

ага. и что по модулю меньше сотни. а так ведь и в -MAX_INT можно улететь)))
добавлено позже
oops. хотя положительные уже упомянуты в пред. сообщении.
sorry for offtop