比赛 | Asm_Def战记之透明计算网络 | 评测结果 | WWWWWEEWWA |
---|---|---|---|
题目名称 | Asm_Def三角形 | 最终得分 | 10 |
用户昵称 | typhon | 运行时间 | 0.008 s |
代码语言 | Pascal | 内存使用 | 0.17 MiB |
提交时间 | 2015-11-01 11:46:13 | ||
var n,i,m:longint; s:qword; function jc(i:longint):qword; var j:longint; t:qword; begin t:=1; for j:=1 to i do t:=t*j; exit(t); end; begin assign(input,'tria.in'); reset(input); assign(output,'tria.out'); rewrite(output); readln(n,m); if m<>0 then begin writeln(0);halt; end; s:=jc(n) div (6*jc(n-3)); writeln(s+n); close(input); close(output); end.