乐乐的图形
创始人
2025-03-07 06:05:08
0次
乐乐的图形
var
s:string;
c:array['A'..'Z']of longint;
i,j,max:longint;
k:char;
begin
for i:=1 to 4 do
begin
readln(s);
for j:=1 to length(s) do
if s[j] in ['A'..'Z'] then
inc(c[s[j]]);
end;
for k:='A' to 'Z' do
if c[k]>max then max:=c[k];
for i:=max downto 1 do
begin
for k:='A' to 'Y' do
if c[k]>=i then
write('* ')
else
write(' ');
if c['Z']>=i then
writeln('*')
else
writeln;
end;
write('A');
for k:='B' to 'Z' do
write(' ',k);
writeln;
end.
相关内容