pascal 求1000以內二進位制和十進位制迴文數的數

時間 2022-07-23 09:30:09

1樓:紅果果的綠果果

一位迴文數有:1,2,…,9,共9個;

二位迴文數有:11,22,…,99,共9個;

三位迴文數有:101,111,…,999,共90個;

四位迴文數有:1001,1111,…,9999,共90個;

五位迴文數有:10001,10101,…,99999,共900個;

六位迴文數有:100001,101101,…,999999,共900個。

到六位數為止,迴文數共有

9+9+90+90+900+900=1998(個)。

第1999個迴文數是1000001,第2000個迴文數是1001001。

2樓:匿名使用者

問一下,用c語言怎麼編呢,要求一樣,換種語言 ,謝謝了。

3樓:嘯嘯_飛

program huiwen;

var i:1..1000;

function hw2(i:integer):boolean;

var a:string;k,j,l:integer;b:string;

begin

a:='';

hw2:=true;

while i>0 do

begin

str(i mod 2,b);

a:=a+b;

i:=i div 2;

end;

l:=length(a);

for j:=1 to l div 2 doif a[j]<>a[l+1-j] then beginhw2:=false;

break

endend;

function hw(i:integer):boolean;

var s:string;j:integer;

begin

hw:=true;

str(i,s);

for j:=1 to length(s) div 2 doif s[j]<>s[length(s)-j+1] then begin

hw:=false;

break

endend;

begin

for i:=1 to 1000 do

if hw2(i) and hw(i) then writeln(i)

end.

註釋想要的話說,我明天補上

要加分得額,pascal這類需要大筆墨的一份不給真的不人道

求2019的二進位制數,求2017的二進位制數

寫出二進位制每位上的基數,從個位1開始向高位寫,每位都是前邊位乘以2,寫到比2017大為止 2048 1024 512 256 128 64 32 16 8 4 2 1 0 1 1 1 1 1 1 0 0 0 0 1 用2017除以2048得到商和餘數 2017 2048 0 2017 將商寫到20...

求1000以內價效比高的手機,求推薦1000以內價效比高的手機

這個是1000以內雙核安卓機篩選 三星的t959都是一款很不錯的安卓智慧手機的,這款是4.0的大屏顯示,最高可以升級到4.偶的系統版本,價位在千元上下,詳情留意本電!華為c8650挺不錯的,還有中興u880 中興u795 價效比高 小辣椒雙核,700左右 求推薦1000左右價效比高的手機 求推薦一個...

計算機為什麼用二進位制,電腦為什麼採用二進位制運算

當計算機工作的時候,電路通電工作,於是每個輸出端就有了電壓。電壓的高低通過模數轉換即轉換成了二進位制 高電平是由1表示,低電平由0表示。也就是說將類比電路轉換成為數位電路。這裡的高電平與低電平可以人為確定,一般地,2.5伏以下即為低電平,3.2伏以上為高電平 電子計算機能以極高速度進行資訊處理和加工...