八字节的pascal字符串,pascal字符串数组

C字符串函数与Pascal字符串函数
自己查一下就好了
pascal语言字符串问题
1．programsdf；　var　a：string；squyci，j：longint；　begin　readln（a）；　while　a＆ltgt；＆＃39；＃＆＃39；　do　begin　s0；　j：＝0；　for　i：＝1　to　length（a）　do　if　a［i］　in　［＆＃39；0＆＃39；．．＆＃39；9＆＃39；］　then　j：＝j＊10＋ord（a［i］）－ord（＆＃39；0＆＃39；）else　begins：＝s＋j；j：＝0；end；　s：＝s＋j；　writeln（s）；　readln（a）；　end；end．其他的想要答案发消息给我adfj我现在没时间
pascal字符串
var s:string; n,i:integer;
begin
for i:=1 to length(s) do
begin
if s[i]='(' then inc(n)
else if s[i]=')' then dec(n);
if n<0 then break;
end;
if n=0 then writeln('YES') else writeln('NO');
end.
pascal字符串数组
var a:array[1..30,1..30]of integer;
n,i,j:integer;
begin
readln(n);
for i:=1 to 2*n 1 do
for j:=1 to 2*n 1 do
if j<=2*n 2-i then
if i else
if i for i:=1 to 2*n 1 do
begin
for j:=1 to 2*n 1 do write(a[i,j]:3);
writeln;
end;
end.
截取字符串pascal
过程可以不，貌似最后一个我只会过程。