Придумайте название для новой торговой системы.

← →
Сатир (2006-10-27 16:08) [40]

> А рабочее название у системы есть?

есть. новая торговая система:-)

← →
Alien1769 © (2006-10-27 16:15) [41]

>
> > А рабочее название у системы есть?
>
> есть. новая торговая система:-)

Это случайно не с помощью микрочипов ?

← →
Курдль © (2006-10-27 16:16) [42]

"МММ"

← →
Сатир (2006-10-27 16:52) [43]

> Это случайно не с помощью микрочипов ?

без помощи микрочипов

← →
DSKalugin © (2006-10-27 16:58) [44]

ООО "Рога и Копыта"

← →
sergey888 (2006-10-27 17:01) [45]

без помощи микрочипов

на счетах что-ли?

← →
tesseract © (2006-10-27 17:02) [46]

> Сатир (27.10.06 16:08) [40]

1c killer version 10.0.0.0

← →
kaif © (2006-10-27 17:26) [47]

Меркурий.

Выбери какого-нибудь древнегреческого бога, покровительствовавшего торговле.

← →
TIF © (2006-10-27 17:32) [48]

super trade

"новая торговая система имени Саши Белого"

procedure TForm1.Button1Click(Sender: TObject); var S1,S2,S3,S4,S5:string; i:integer; begin S1:="БВГДЗКЛМНРСТ"; S2:="аеиоую"; S3:=AnsiLowerCase(S1); S4:=" сндтпрв"; memo1.Clear; for i := 0 to 100 do S5:=S5+S1[random(length(S1)-1)+1]+ S2[random(length(S2)-1)+1]+ S3[random(length(S3)-1)+1]+ S3[random(length(S3)-1)+1]+ S2[random(length(S2)-1)+1]+ S4[random(length(S4)-1)+1]+", "; Memo1.text:=S5; end;

Обдираловка

← →
kurvolovik (2006-10-31 10:19) [52]

В этот код ещё можно добавить SetLength(S5, Length(S5)-2). Для красивости :-)

Придумайте название для новой торговой системы. Найти похожие ветки