Question

[Đặng Viết Thái]

Nhập từ bàn phím xâu S

in ra ký tự xuất hiện nhiều nhất và chỉ ra ký tự đó

không phân biệt ký tự hoa và ký tự thường

Ví Dụ:

Nhập từ bàn phím : abcDbfgehDd

in ra màn hình : Ký tự d xuất hiện nhiều nhất : 3 lần
            hoặc      Ký tự D xuất hiện nhiều nhất : 3 lần 

Pascal lớp8

Answer 1

[Thiện]

uses crt;
var ch,d:char;
    i,max:integer;
    s:string;
    a:array['A'..'Z']of integer;
begin
write('nhap xau:');readln(s);
for ch:='A'to'Z' do a[ch]:=0;
for i:=1 to length(s) do begin
s[i]:=upcase(s[i]);
a[s[i]]:=a[s[i]]+1;
end;
max:=a['A'];
for ch:='A'to'Z' do
if a[ch]>max then begin
max:=a[ch];
d:=ch;
end;
writeln('ki tu ',d,' xuat hien nhieu nhat:',max);
readln
end.

Answer 2

[Đặng Viết Thái]

program xoa_ky_tu;
uses crt;
var x,y:string;
    i,j,dem,max: integer;
    a:char;
BEGIN
clrscr;
write('nhap xau x : ');
readln(x);
y:=x;

for i:=1 to length(x) do
begin
j:=i+1;
repeat
if x[i]=x[j] then delete(x,j,1)
else
j:=j+1;
until (j>length(x));
end;
writeln('xau sau khi loai bo ki tu giong nhau la :',x);

max:=0;
a:=' ';
for i:=1 to length(x) do
begin
dem:=0;
for j:=1 to length(y) do
if x[i]=y[j] then
dem:=dem+1;
if dem>max then
begin
max:=dem;

a:=x[i];
end;
end;
writeln('ki tu ',a,' xuat hien ',max,' lan');

readln;
end.