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óađụ má mấy thằng ngu
Xóađụ má mấy thằng ngu
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óaTrình Đếm Ký Tự giúp bạn dễ dàng đếm số lượng ký tự trong văn bản, bao gồm cả khoảng trắng và không có khoảng trắng, hỗ trợ cho việc viết và chỉnh sửa.
Trả lờiXóa