比赛 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.