Cho xâu 𝑆 (độ dài 𝑆 ≤ 255) gồm hỗn tạp các ký tự chữ cái in hoa, ký tự chữ cái in thường, ký tự chữ số và các ký tự đặc biệt trong bảng mã ASCII. • Yêu cầu: Hãy đếm xem trong xâu 𝑆 có bao nhiêu ký tự đặc biệt. • Input: Xâu 𝑆 nằm trên một hàng duy nhất. • Output: Một số duy nhất là kết quả cần tìm theo yêu cầu
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.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then write(st[i]);
writeln;
for i:=1 to d do
if (st[i] in ['0'..'9']) then write(st[i]);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
int d,i,d1;
string st;
int main()
{
getline(cin,st);
d=st.length();
while (st[0]==32)
{
st.erase(0,1);
}
while (st[d-1]==32)
{
st.erase(d-1,1);
}
d1=st.length();
for (i=0; i<d1; i++)
if ((st[i]==32) && st[i+1]==32)
{
st.erase(i,1);
i--;
}
cout<<st;
return 0;
}
uses crt;
var s:string;
i,d,dem1,dem2,dem3,dem4:integer;
begin
clrscr;
write('Nhap xau s:'); readln(s);
d:=length(s);
dem1:=0;
dem2:=0;
dem3:=0;
dem4:=0;
for i:=1 to d do
begin
if st[i] in ['0'..'9'] then inc(dem1)
else if st[i] in ['a'..'z'] then inc(dem2)
else if st[i] in ['A'..'Z'] then inc(dem3)
else inc(dem4);
end;
writeln('So luong ky tu so la: ',dem1);
writeln('So luong ky tu thuong la: ',dem2);
writeln('So luong ky tu hoa la: ',dem3);
writeln('So luong ky tu dac biet la: ',dem4);
readln;
end.
Program hotrotinhoc;
var max,i,n: integer;
x,s: string;
d: array['A'..'z'] of integer;
l: char;
begin
readln(x);
for i:=1 to length(x) do
inc(d[x[i]]);
for i:=1 to length(x) do if pos(x[i],x)=i then s:=s+x[i];
for l:='A' to 'z' do if d[l]<>0 then
if d[l]>max then max:=d[l];
for l:='A' to 'z' do if d[l]=max then begin write(l); break; end;
readln;
end.