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無關的正整數的平方和。案例可能有多組。對於每個測試案例輸入為一行,正整數...