Question

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!!

Answer 1

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.

Answer 2

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.

Answer 3

var a:string ;

i,j:integer;

n,k:byte;

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 a[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.

Answer 4

i,j:integer;

n:byte;

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 a[j]=i then

n:=n+1;

if n<> 0 then

write "(i' xuat hien 'n' lan')

end;

readln

end.

Answer 5

(var a:string; )=>(var S:string;)