与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.

作者：binfeihan 发表于2011-10-10 9:57:31

阅读：55 评论：2