比赛 NOIP_4 评测结果 AATTTTTTTA
题目名称 铺砖 最终得分 30
用户昵称 NickName 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-09-19 22:21:03
显示代码纯文本
program puzhuan;
var x1,x2:longint;
pi,po:text;
n:longint;
jg:longint;
function yunsuan(a:longint):longint;
begin
if a=1 then yunsuan:=1;
if a=2 then yunsuan:=3;
if a=3 then yunsuan:=5;
if a>3 then yunsuan:=yunsuan(a-1)+2+(yunsuan(a-2)-1)*2;
end;
begin
assign(pi,'puzhuan.in');
reset(pi);
readln(pi,n);
jg:=yunsuan(n);
assign(po,'puzhuan.out');
rewrite(po);
if jg>12345 then jg:=jg mod 12345;
writeln(po,jg);
close(pi);
close(po);
end.