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óahâm à
Xóacac
XóaĐức dốt
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óaEncontré una herramienta muy útil para calcular fechas de vencimiento fácilmente mientras organizaba unas entregas.
Trả lờiXóa