![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() в Listbox вывести числа меньшие 100 которые делятся на 3 без остатка.
|
#2
|
||||
|
||||
![]() Код:
var i: integer; begin for i := 1 to 100 do if i mod 3 = 0 then ListBox1.Items.Add(IntToStr(i)); end; Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#3
|
||||
|
||||
![]() Код:
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'); jmp $ ; Happy End! The Cake Is A Lie. |
#4
|
||||
|
||||
![]() Цитата:
![]() Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#5
|
||||
|
||||
![]() Цитата:
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#6
|
||||
|
||||
![]() только так:
Код:
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'; ![]() Пишу программы за еду. __________________ |
#7
|
||||
|
||||
![]() Цитата:
![]() jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 25.01.2012 в 14:08. |
#8
|
||||
|
||||
![]() ага. и что по модулю меньше сотни. а так ведь и в -MAX_INT можно улететь)))
добавлено позже oops. хотя положительные уже упомянуты в пред. сообщении. sorry for offtop Пишу программы за еду. __________________ |