26.04.2009, 19:53
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
С нами:
10139366
Репутация:
1502
|
|
Код:
while length(s)<>0 do
begin
t := pos(';', s);
//t-1 - длина слова
Memo.Lines.Add(copy(s, 1, t - 1));
delete(s, 1, t);
end;
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|