两个Basic程序
DECLARE FUNCTION Add$ (a$, b$)OPEN "Sum.in" FOR INPUT AS #1OPEN "Sum.out" FOR OUTPUT AS #2CLSINPUT #1, nFOR z = 1 TO n INPUT #1, s$ p = INSTR(s$, " ") a$ = LEFT$(s$, p - 1) b$ = RIGHT$(s$, LEN(s$) - p) PRINT #2, Add$(a$, b$)NEXT zCLOSEENDFUNCTION Add$ (a$, b$) la = LEN(a$) lb = LEN(b$) ...
最大连续组长度
var len,i:byte; st:string; max,now:record length:byte; ch:char; end;begin assign(input,'long.in'); reset(input); assign(output,'long.out'); rewrite(output); readln(len); readln(st); with max do begin length:=1; ch:=st[1] end; now:=max; for i:=2 to len do if st[i]=st...