wikioi(wikioi 1207数列,用pascal语言)
本文目录
wikioi 1207数列,用pascal语言
var s,s2,s3:string; tot,p,t,len:longint; b:array of longint; don,sum:array of string;function chu(a:string):string; var yu,i:longint; c:string;begin yu:=0; c:=’’; for i:=1 to length(a) do begin c:=c+chr((ord(a)-48+yu) shr 1+48); yu:=((ord(a)-48) mod 2)*10; end; while c=’0’ do delete(c,1,1); exit(c);end;function add(a,b:string):string; var c:string; i,p,jing:longint;begin c:=’’; while length(a)》length(b) do b:=’0’+b; while length(a)《length(b) do a:=’0’+a; jing:=0; for i:=length(a) downto 1 do begin p:=(ord(a)-48-48)+jing; jing:=p div 10; p:=p mod 10; c:=chr(p+48)+c; end; if jing《》0 then c:=chr(jing+48)+c; exit(c);end;procedure f(s,ls:string;t:integer);begin if s=’0’ then begin sum:=’1’; inc(tot); b:=t; exit; end; if s=’1’ then begin sum:=’1’; inc(tot); b:=t; exit; end; s2:=chu(s); s3:=add(s2,’1’); if odd(ord(s)-48) then f(s2,s3,1) else f(s2,s3,2); inc(tot); b:=t;end;begin readln(t); for t:=1 to t do begin readln(s); len:=length(s); tot:=0; f(s,add(s,’1’),0); don:=sum; p:=1; while p《》tot do begin if b=1 then begin sum); sum; end else begin sum; sum); end; don:=sum; inc(p); end; writeln(sum); end;end.
wikioi 1131 http://wikioi.com/problem/1131/
first;你这里也太夸张了吧,一百万个整型,你知道将要占用多大的空间吗?一个整形占2字节。一个字节=8bit。也就是说你需要 2*8*1000000=16000000bit才够用。2的10次方是1k,2的20次方是1M,2的30次方是1G。也就是说你所需要的空间是2的一千六百万次方。也就是5万多个G才能放进你的first这个数组。
更多文章:
地铁跑酷英雄联盟破解版怎么下载?三国志12威力加强版 如何破解敌人的联盟
2024年8月2日 22:10
下载12360订票软件下载(12306铁路订票官网下载12306怎么注册)
2024年9月30日 07:35
114通过姓名查手机号(114能查询到个人电话或者公用电话嘛)
2024年10月9日 16:45
如何设置浏览器安全站点及安全级别?华硕电脑连图书馆网络显示站点不安全
2024年6月30日 19:36
《三国志·蜀志·刘备传》全文?文言文 刘备传 翻译 跪求!!
2024年7月6日 03:45
诺诺岛章鱼环礁第5关攻略 章鱼环礁第5关怎么过?诺诺岛怎么玩 诺诺岛玩法心得新手攻略
2024年6月19日 02:45
英雄联盟手游无限火力(《英雄联盟》无限火力魔切到底能不能触发额外伤害的被动)
2024年3月31日 03:30
京东上的商品图片如何批量下载到电脑上?用outlook express怎么批量下载文件
2024年6月21日 10:07