viết chương trình nhập vào xâu S gồm chữ cái chữ số và khoảng cách . cho biết có bao nhiêu loại chữ cái có trong xâu S
2 câu trả lời
uses crt;
var s:string;
i,count,res:word;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then begin inc(count); break end;
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then begin inc(res); break end;
write(count+res);
readln;
end.
uses crt;
var st:string;
i,d,dem:integer;
ch:char;
begin
clrscr;
write('Nhap xau:'); readln(st);
write('Nhap ki tu:'); readln(ch);
d:=length(st);
dem:=0;
while pos(ch,st)>0 do
begin
inc(dem);
delete(st,pos(ch,st),1);
end;
writeln(dem);
readln;
end.
