var
st:record
one,two,three:string;
len:longint;
end;
begin
readln(st.one);
st.len:=length(st.one) div 2;
st.two:=copy(s,1,st.len);
st.three:=copy(s,1,st.len+1,st.len);
writeln('s:',st.two,' ','st:',st.three);
end.
//说明一下，copy函数：copy(s，m，n)取s中第m个字符开始的n个字符；length(s):求s的长度
代码如下
program help;
var
s,st,a:string;
i,j:longint;
begin
readln(a);
i:=length(a);
j:=i div 2;
s:=copy(a,1,j);
st:=copy(a,j+1,i);
writeln('s:',s,' ','st:',st);
end.
仅只有数字读入么
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024