阿
阿波
Unregistered / Unconfirmed
GUEST, unregistred user!
var
n,l,i:integer;
s1:string;
begin
l:=length(edit1.text);
s1:='';
i:=1;
if l>2n-1 then
begin
while i<2n-1do
begin
s1:=s1+(copy(edit1.text,l-1,2)+'');
i:=i+1;
begin
edit2.text:=s1;
end;
end;
end;
end;
end.
n,l,i:integer;
s1:string;
begin
l:=length(edit1.text);
s1:='';
i:=1;
if l>2n-1 then
begin
while i<2n-1do
begin
s1:=s1+(copy(edit1.text,l-1,2)+'');
i:=i+1;
begin
edit2.text:=s1;
end;
end;
end;
end;
end.