Nhập xâu s chỉ chứa các chữ cái viết hoa. Đếm xem s có bao nhiêu kí tự khác nhau.
Input
· Dòng 1: số test t
· t dòng sau: mỗi dòng 1 xâu s ít hơn 255 kí tự
Output: t dòng, mỗi dòng là kết quả 1 test tương ứng.
Ví dụ
Input
2
AABDDC
NANGKHIEUTINHOC
Output
4
11
program p;
Trả lờiXóauses crt;
var i,j,d:longint;
s:string;
kt:boolean;
begin
clrscr;
readln(s); d:=0;
for i:=1 to length(s) do
begin
kt:=true;
for j:=1 to i-1 do
if s[i]=s[j] then kt:=false;
if kt=true then inc(d);
end;
write(d);
readln;
end.
sai rồi
Xóacặc danh bảo sai cái bìu à?
Xóahâm à
Xóacac
Xóacặc
Xóahoàng ngu vl
XóaĐức dốt
XóaNgu địt mẹ mày viết sai đòi dạy ai
XóaUses crt;
Trả lờiXóaVar n,i,dem,j:longint;
s:string;
f:array['A'..'Z'] of boolean;
Begin
readln(n);
For i:=1 to n do
Begin
dem:=0;
fillchar(f,sizeof(f),false);
readln(s);
For j:=1 to length(s) do
If f[s[j]]=false then
Begin f[s[j]]:=true; dem:=dem+1; end;
Writeln('---',dem,'---');
end;
readln;
end.
Uses crt;
Trả lờiXóaVar n,i,dem,j:longint;
s:string; k:char;
f:array['A'..'Z'] of WORD;
Begin
readln(S);
dem:=0;
fillchar(f,sizeof(f),0);
For j:=1 to length(s) do
f[s[j]]:=f[s[j]]+1 ;
for k:='A' to 'Z' do if f[k]>0 then dem:=dem+1;
Writeln('---',dem,'---');
readln;
end.
chịu roiq
Trả lờiXóa