16.01.2014, 07:42
|
|
Sir Richard Abramson
|
|
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
|
|
Код:
i := 0;
j := 0;
k := 0;
while i<=20 do
begin
Random(100);
k := Random(100);
inc(j, k);
LiatBox.Items.Add(IntToStr(k));
inc(i);
end;
Edit1.text := IntToStr(j);
С тебя 500 рублей.
|