Pascal程序练习-与7无关的数

与7无关的数
时间限制: 1000ms内存限制: 65536kB
描述
一个正整数,如果它能被7整除,或者它的十进制表示法中某个位数上的数字为7,则称其为与7相关的数.现求所有小于等于n(n<100)的与7无关的正整数的平方和.
输入
输入为一行,正整数n,(n<100)
输出
输出小于等于n的与7无关的正整数的平方和
样例输入
21
样例输出
2336
参考代码

program pig3864;
{Numbers have relationship with seven 2011-10-8 20:00PM Eric Zhou}
var i,n,sum:Longint;
function hasRelation(n:Longint):Boolean;
var i:Longint;
begin
	if n mod 7 = 0 then
		exit(true);
	while n > 0 do
	begin
		i := n mod 10;
		if i = 7 then exit(true);
		n := n div 10;
	end;
	hasRelation := false;
end;
begin
	readln(n);
	sum := 0;
	for i := 1 to n do
		if not hasRelation(i) then
			sum := sum + i * i;
	writeln(sum);
end.