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这个数组。
更多文章：
小米平板1最流畅的系统版本（大家小米平板1用的哪个版本的系统）
2024年5月27日 10:04
小米6屏幕多少钱一块（请问2019刚才小米6手机摔破屏幕了，换一个屏幕多少钱）
2024年7月1日 15:01
2023年8月9日 10:40
2024年3月21日 12:15
mate30pro截屏的6种方式（华为mate30pro怎样截屏手机屏幕截图）
2023年10月13日 07:00
iphone5国行上市时间（2012 iphone5国行上市时间）
2024年5月13日 19:20
第一款四核手机（全第一款单核智能手机、双核智能手机、四核智能手机分别是）
2024年6月10日 23:32
诺基亚5800边键（为什么我的港行诺基亚5800XM解锁只能用手机右边的解锁键）
2024年3月12日 21:15
酷派8675a手机解锁（酷派8675手机锁屏密码忘了怎么办）
2023年7月4日 12:00
2023年8月23日 08:20
2023年8月15日 08:30
2024年6月14日 16:38
酷派8675 fhd（按了下酷派8675FHD的会议模式就没声音了 要怎么恢复 这个手机怎么没看到有恢复的地方）
2023年8月23日 05:20
三星玄龙骑士i57300hq（三星（SAMSUNG）玄龙骑士15.6英寸游戏笔记本电脑（i5-7300HQ 8G 1T+128G）
2023年6月23日 09:30
华为nova8se活力版处理器（华为发布的新手机，配置稍微差了点）
2023年10月9日 04:05
iphone6价格32g新机价格官网（苹果6现在多少钱32的）
2023年11月15日 07:35
华为mate20pro屏幕是哪个厂家的（请问华为Mate 20 Pro 京东方发屏幕好还是LG的屏幕好，我的是京东方的）
2024年7月5日 11:35
2023年8月17日 11:50
2024年6月26日 19:15
回收二手手机录音（回收旧手机,破手机,电视机,冰箱喊麦录音）
2024年5月31日 15:57
