统计出每个字母在该字符串中出现的次数若某字母不出.pptVIP

题1134：【入门】字符统计 Description 输入一串小写字母(以‘.’为结束标志)，统计出每个字母在该字符串中出现的次数(若某字母不出现，则不要输出)。 要求：每行输出5项，每项以空格隔开。 Input 输入一行以.结束的字符串 Output 输出相应小写字母的个数。 Sample Input aaaabbbccc. Sample Output a:4 b:3 c:3 字符串 * * 边读入，边统计 扫描数组，输出 x[z] … x[h] x[g] x[f] x[e] x[d] x[c] x[b] x[a] y program ex; var ch,i:char; t:integer; x:array[a..z] of integer; begin read(ch); for i:=a to z do x[i]:=0; while ch. do begin x[ch]:=x[ch]+1; read(ch); end; t:=0; for i:=a to z do if x[i]0 then begin inc(t); if t mod 5=0 then writeln(i,:,x[i] , ) else write(i,:,x[i], ); end; end. program ex; var n,i,x,s:integer; a:array[0..1000] of integer; begin readln(n); fillchar(a,sizeof(a),0);//数组清零 for i:=1 to n do begin read(x); a[x]:=1; end; s:=0; for i:=0 to 1000 do if a[i]0 then inc(s); writeln(s); for i:=0 to 1000 do if a[i]0 then write(i, ); end. 输入 6 4 5 7 2 4 2 3 x[1000] … x[7] x[6] x[5] x[4] x[3] x[2] x[1] x[0] 读程序写结果 题1147：【基础】去除重复数字 给你N个数（n＜＝１００）,每个数都在（0~1000）之间，其中由很多重复的数字，请将重复的数字只保留一个，并将剩下的数由小到大排序并输出。 Input 输入有2行，第1行为1个正整数，表示数的个数:N 第2行有N个用空格隔开的整数。 Output 输出也是2行，第1行为1个正整数M，表示不相同数的个数。第2行为M个用空格隔开的整数，为从小到大排好序的不相同的数。 Sample Input 10 20 40 32 67 40 20 89 300 400 15 Sample Output 8 15 20 32 40 67 89 300 400 Source 冰糖葫芦串 ‘A’ ‘AHKKGG’ 字符 字符串 定义 字 符： x:char; 字符串： y:string; ‘A’ ‘Avfkfkfdkjs…’ 255 y:ansistring; 4G 4G=1024*1024*1024 GB MB KB B(byte) X:=‘AHKKGG’ X[1] st china St[1] St[2] St[3] St[4] St[5] c h i n a St[0] 字符串的输入和输出：read(st) write(st); 演示 题1583：【入门】倒置输出字符串 Description 随机输入一个长度不超过255的字符串，将其倒置后输出。 Input 只有一行。 Output 只有一行。 Sample Input asdfghjkl123456 Sample Output 654321lkjhgfdsa 如果定义字符，必须定义数组 x:array[1..255] of char; x[1] x[2] x[3] x[4] x[255] …..