来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/04/28 22:40:28
帮我做一道简单的编程题目(pascal)
给出一列数：[(1*1)/2008],[(2*2)/2008],[(3*3)/2008],[(4*4)/2008]…[(n*n)/2008],给出n,要你求出这列数中不同的个数有多少个.（n
事实上
n2008时,
只需要在1-2008之间枚举一下,假设有x个
则答案为n-2008+x
程序：
比较容易理解,就不写注释了
var n,ans:int64;
i,t,s,k:longint;
begin
readln(n);
if n
作业帮