日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

【NOIP2012模拟10.20】友好数对

發布時間:2024/1/17 编程问答 36 豆豆
生活随笔 收集整理的這篇文章主要介紹了 【NOIP2012模拟10.20】友好数对 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

Description

如果一個數a 能由一個數b 旋轉得到,那么我們稱<a,b>為友好數對,如12345 和45123 為友好數對,12345 和54321 不為友好數對。給出兩個正整數L,R,求有多少友好數對<a,b>,滿足 L<=a<b<=R。

Input

第一行一個整數T,表示數據組數,每組數據兩個正整數L,R。

Output

對于每組數據,輸出一個整數表示答案。

題解

暴力每一個數,判斷這個數有多少個友好數列。

代碼

constd:array [1..7] of longint=(10,100,1000,10000,100000,1000000,10000000); varn,m,t,ans:longint; procedure main; vari,t,l,ll:longint;s:string; beginif n<10 then n:=10;str(n,s);l:=length(s);ans:=0;for i:=n to m dobeginll:=l;t:=(i mod d[l-1])*10+i div d[l-1];while (t<>i) and (ll>0) dobeginif (t>=n) and (t<=m) then inc(ans);t:=(t mod d[l-1])*10+t div d[l-1];dec(ll);end;end; end;beginreadln(t);while t>0 dobegindec(t);readln(n,m);main;writeln(ans div 2);end; end.

轉載于:https://www.cnblogs.com/zyx-crying/p/9319572.html

總結

以上是生活随笔為你收集整理的【NOIP2012模拟10.20】友好数对的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。