上一页 1 ··· 49 50 51 52 53
摘要: var a,n,m,x,i,ans,b:longint;//ans是车上人数 f:array[1..100] of longint;//f其实是斐波那契数列begin f[1]:=1;//前两个数的值 f[2]:=1; for i:=3 to 23 do/... 阅读全文
posted @ 2016-12-03 08:34 银叶草 阅读(138) 评论(0) 推荐(0)
摘要: 这题其实就是高精乘const maxn=1000;varsum,a:array[0..maxn]of longint;n:longint;procedure init;//读入begin readln(n); a[maxn]:=1;end;procedur... 阅读全文
posted @ 2016-12-03 08:26 银叶草 阅读(187) 评论(0) 推荐(0)
摘要: begin writeln('192 384 576'); writeln('219 438 657'); writeln('273 546 819');writeln('327 654 981');end. 阅读全文
posted @ 2016-12-03 08:23 银叶草 阅读(125) 评论(0) 推荐(0)
摘要: varl,i,tj:longint;a:array['a'..'z']of longint;x,c:char;b:array[0..500]of char;procedure print;begin for i:=1 to l do//要一个一个输出,不能直接w... 阅读全文
posted @ 2016-12-02 21:52 银叶草 阅读(181) 评论(0) 推荐(0)
摘要: vara,b:array[0..9]of longint;n:longint;procedure print;vari:longint;begin for i:=1 to n do write(a[i]:5);//要保留五个常宽 writeln;en... 阅读全文
posted @ 2016-12-02 21:30 银叶草 阅读(198) 评论(0) 推荐(0)
摘要: P老师需要去商店买n支铅笔作为小朋友们参加NOIP的礼物。她发现商店一共有 3种包装的铅笔,不同包装内的铅笔数量有可能不同,价格也有可能不同。为了公平起 见,P老师决定只买同一种包装的铅笔。商店不允许将铅笔的包装拆开,因此P老师可能需要购买超过n支铅笔才够给小朋 友们... 阅读全文
posted @ 2016-12-01 17:06 银叶草 阅读(150) 评论(0) 推荐(0)
上一页 1 ··· 49 50 51 52 53
Live2D