Các bạn giải giúp mình câu này với ạ. Nhập xâu st đếm số kí tự b xuất hiện trong xâu và in hoa các chữ cái đầu tiên
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
![](https://rs.olm.vn/images/avt/0.png?1311)
Viết chương trình đếm số lượng mỗi chữ cái có trong xâu s . Giả sử xâu s đc nhập là các kí tự in hoa
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘A’<=a[i]) and (a[i]<=’Z’) then
Dem:= Dem+1;
Writeln(Dem);
Readln
End.
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem);
writeln(dem);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var s:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap chuoi S:'); readln(s);
d:=length(s);
writeln('Trong chuoi ',s,' co ',d,' ki tu');
writeln('Chuoi dao cua chuoi ',s,' la: ');
for i:=d downto 1 do
write(s[i]:4);
writeln;
dem:=0;
for i:=1 to d do
if s[i] in ['0'..'9'] then inc(dem);
writeln('So chu so trong xau la: ',dem);
readln;
end.
uses crt;
var st:string;
i,d,dem:integer;
b:char;
begin
clrscr;
write('Nhap xau st:'); readln(st);
d:=length(st);
write('Nhap ki tu b:'); readln(b);
dem:=0;
for i:=1 to d do
if b=st[i] then inc(dem);
writeln(dem);
readln;
end.