我起的名字叫zd,输入文件为zd.txt,输出为3行,你要想改成1行就把writeln改为write就行了。 program wood; var total,m:integer; s:string; i:char; a:array['a'..'z'] of integer; begin assign(input,'zd.txt'); assign(output,'zd.out'); reset(input); rewrite(output); read(s); fillchar(a,sizeof(a),0); while s'' do begin m:=pos(' ',s); if m... |