银叶草

摘要： 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)

csdn博客：https://blog.csdn.net/sslgz_yyc