比赛 Asm_Def战记之透明计算网络 评测结果 WWWWWWWWWW
题目名称 Asm_Def三角形 最终得分 0
用户昵称 Ten.X 运行时间 0.000 s
代码语言 Pascal 内存使用 0.15 MiB
提交时间 2015-11-01 10:38:54
显示代码纯文本
var n,m,a,b:int64;
function find_tri(x:longint):int64;
var t:int64;
begin
if x=3 then exit(1);
x:=x-3;
if x mod 2=0 then begin t:=x div 2;exit(t*(x-1)+1);end;
if (x-1) mod 2=0 then begin t:=(x-1) div 2;exit(t*x+1);end;
end;
begin
assign(input,'tria.in');
assign(output,'tria.out');
reset(input);
rewrite(output);
read(n,m);
a:=find_tri(n);
if n mod 2=0 then begin b:=n div 2;b:=b*(n-1);end;
if ((n-1)mod 2=0) then begin b:=(n-1)div 2;b:=b*n;end;
write(a+b);
close(input);
close(output);
end.