网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
07月22日漏签0天
pascal吧 关注:14,951贴子:132,331
  • 看贴

  • 图片

  • 吧主推荐

  • 视频

  • 游戏

  • 2回复贴,共1页
<<返回pascal吧
>0< 加载中...

【07NOIP提高组】统计数字

  • 只看楼主
  • 收藏

  • 回复
  • plotcurious
  • A+B
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

var
a:array[1..200000] of string[10];
i,j,s:integer;n:longint;
procedure qsort(l,r:integer);
var mid,p:string[10];lei,lej,lem:integer;
begin
i:=l; j:=r;
mid:=a[(l+r) div 2];lem:=length(mid);
repeat
lei:=length(a[i]);lej:=length(a[j]);
while ( (lei<lem) or ( (lei=lem) and (ord(a[i][1])<ord(mid[1])))) do inc(i);
while ( (lej>lem) or ( (lej=lem) and (ord(a[j][1])>ord(mid[1])))) do dec(j);
if i<=j then
begin
p:=a[i]; a[i]:=a[j]; a[j]:=p;
inc(i); dec (j);
end;
write(i,'here ');
until i>j;
if l<j then qsort(l,j);
if i<r then qsort(i,r);
end;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
qsort(1,n); s:=1;
for i:=1 to n do begin
if a[i]=a[i+1] then
inc(s) else begin
write(a[i],' ',s);writeln;
s:=1;end;
end;
end.


  • plotcurious
  • A+B
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
here 怎么输不出来。。。。


2025-07-22 10:31:30
广告
不感兴趣
开通SVIP免广告
  • plotcurious
  • A+B
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
不用了。。


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 2回复贴,共1页
<<返回pascal吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示