Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  good
Language: PASCAL
Code:
uses crt;
var a:string;
    b:array[#1..#255]of integer;
    i:integer;
    chu:char;
begin
clrscr;
for chu:=#1 to #255 do b[chu]:=0;
write(' Nhap chuoi = ');readln(a);
for i:=1 to length(a) do
(b[a[i]]):=b[a[i]] +1;
writeLn('Cac ki tu trong xau la:');
for chu:=#1 to #255 do
if b[chu]>0 then writeln(chu, ': xuat hien ',b[chu],' lan');
readln;
end.
Comments: