Pascal程式練習 與7無關的數

與7無關的數

時間限制: 1000ms記憶體限制: 65536kb

描述

乙個正整數,如果它能被7整除,或者它的十進位制表示法中某個位數上的數字為7,則稱其為與7相關的數.現求所有小於等於n(n<100)的與7無關的正整數的平方和.

輸入

輸入為一行,正整數n,(n<100)

輸出

輸出小於等於n的與7無關的正整數的平方和

樣例輸入

21

樣例輸出

2336

參考**

program pig3864;

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.

Pascal程式練習 與7無關的數

與7無關的數 時間限制 1000ms記憶體限制 65536kb 描述 乙個正整數,如果它能被7整除,或者它的十進位制表示法中某個位數上的數字為7,則稱其為與7相關的數.現求所有小於等於n n 100 的與7無關的正整數的平方和.輸入 輸入為一行,正整數n,n 100 輸出 輸出小於等於n的與7無關的...

C 程式設計練習 與7無關的數

description 乙個正整數,如果它能被7整除,或者它的十進位制表示法中某個位數上的數字為7,則稱其為與7相關的數.現求所有小於等於n n 100 的與7無關的正整數的平方和.input 輸入為一行,正整數n,n 100 output 輸出小於等於n的與7無關的正整數的平方和 sample i...

與7無關的數

時間限制 1 sec 記憶體限制 32 mb 提交 18 解決 18 提交 狀態 tk題庫 乙個正整數,如果它能被7整除,或者它的十進位制表示法中某個位數上的數字為7,則稱其為與7相關的數.現求所有小於等於n n 100 的與7無關的正整數的平方和。案例可能有多組。對於每個測試案例輸入為一行,正整數...