POJ 1183-arctan

LaMarcus

于 2011-04-19 20:59:00 发布

阅读量457

点赞数

分类专栏： NOI POJ 文章标签： pascal date div c

本文链接：https://blog.csdn.net/wzx961008/article/details/6334470

版权

NOI 同时被 2 个专栏收录

3 篇文章

订阅专栏

POJ

2 篇文章

订阅专栏

本文提供了一道名为POJ1183-arctan的编程题的解决方案，使用Pascal语言实现。该算法通过枚举变量进行优化计算，最终输出最优解。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

简单枚举：

{
 Author:wzx961008
 Problem:POJ 1183-arctan
 Verdict:Accepted
 Language:PASCAL
 Run Time:0.032s
 AC Date:2011-4-19
}
var a,b,c,k,ans,tmp:qword;
    i:longint;
begin
 readln(a); ans:=maxlongint;
 for i:=1 to a do begin
  k:=a*(a+i)+1; tmp:=k div i+a+i;
  if (k mod i=0)and(tmp<ans) then ans:=tmp;
 end;
 writeln(ans);
end.