Question

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

Answer 1

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.