anh em giúp mình bài này với!!
''nhập vào xâu S
a.đếm số k là số kí tự chữ cái tiếng anh n hoa khác nhau trong xâu S''
(VD: xâu S: NGu VaN => k=3 hay xâu S: mOn tin hOc => k=1)
b. liệt kê các kí tư chữ cái tiếng anh in hoa và có cùng số lần xuất hiện trong xâu S
(VD: xâu S: NGu VaN => N xuat hien 2 lan, G xuat hien 1 lan, V xuat hien 1 lan)
cảm ơn các...
Đọc tiếp
anh em giúp mình bài này với!!
''nhập vào xâu S
a.đếm số k là số kí tự chữ cái tiếng anh n hoa khác nhau trong xâu S''
(VD: xâu S: NGu VaN => k=3 hay xâu S: mOn tin hOc => k=1)
b. liệt kê các kí tư chữ cái tiếng anh in hoa và có cùng số lần xuất hiện trong xâu S
(VD: xâu S: NGu VaN => N xuat hien 2 lan, G xuat hien 1 lan, V xuat hien 1 lan)
cảm ơn các bạn!!
các bạn giúp mình giải bài tiếng anh này với 
cái này đúng
var S:string ;
j:integer;
n,k:byte;
i:char;
begin
k:=0;
write('nhap xau S');
read (S);
for i:= 'A' to 'Z' do
begin
n:=0;
for j:= 1 to length(S) do
if s[j]=i then
n:=n+1;
if n<> 0 then
k:=k+1;
end;
write ('so ki tu chu cai tieng anh in hoa khac nhau trong xau S=',k);
readln
end.
câu b
('đúng ')
var S:string ;
j:integer;
n,k:byte;
i:char;
begin
k:=0;
write('nhap xau S ..');
read (S);
for i:= 'A' to 'Z' do
begin
n:=0;
for j:= 1 to length(S) do
if s[j]=i then
n:=n+1;
if n<> 0 then
begin
write(i,' xuat hien',n,' lan');
writeln(' ');
end;
end;
readln
end.