1樓：匿名使用者
vari,n,j:integer;
s:string;
begin
readln(n);
for i:=1 to n do
begin
str(i,s);
for j:=1 to length(s) div 2 doif s[j]<>s[length(s)-j+1] then continue;
writeln(i);
end;
end.
我的演算法是先轉換成字串，逐字校對，應該挺容易理解。
2樓：天ぅ殤
var s:string;
i,j,n,k:integer;
begin
readln(n);
for k:=1 to n do
val(s,k);
j:=length(s);
i:=1;
while (i=j then writeln(k);
end.
3樓：匿名使用者
有兩種演算法 第一是自己生成 用遞迴
第二是轉換成字串, 判斷是不是回文數,2樓的就是第二種演算法
4樓：匿名使用者
program hws;
var:a,b,c:integer;
realding(a);
然後a/100與a/10的餘數比較，qq570050262有問題問哦（回文數是三位數，so我們可以這麼做）
5樓：匿名使用者
我的方法比他們的快,我是自己生成,只要n小於2^31都可以,我的方法是這樣的:自到生成會文數的前半部分(用乙個變數不斷的累加1就可以),然後再把前半部分倒過來，加到前半部分後面(位數為奇數偶數時會有所不同），這樣就生成了乙個回文數。
program find;
var a,b,c,d,e,f,g,i,j,x:longint;//這裡可以改成qword，資料範圍可以更廣
k,l,m,n:string; ccc,ke:boolean;
begin
read(c);str(c,k); if c<1 then exit;
ke:=true;g:=0;i:=0;j:=0;
while ke do
begin
inc(g); n:='';m:='';
if i=0 then if j=0 then begin
writeln( g);
endelse begin
str(g,m);delete(m,length(m),1);
for x:=1 to length(m) do
insert(m[length(m)-x+1],n,x);
str(g,m);insert(n,m,length(m)+1);
val(m,f);
if c'0' then ccc:=false;
if (m[1]='1')and ccc
then begin
if i=0 then begin g:=g div 10-1;i:=1;end
else begin dec(g);i:=0;end;
if j=0 then begin j:=1;end;
endelse dec(g);
end;
end.
c語言 求出100以內所有偶數的和，所有奇數的和
include int main int a 0 int b 0 for int i 1 i 100 i if i 2 0 a i else b i printf 100以內的偶數和為 d n a printf 100以內的奇數和為 d n b return 0 迴圈判斷奇數偶數，奇數就加到a，偶數...
求5000以內的筆記本，求5000以內的筆記本推薦
5000的電腦在大學算是偏好一點的，但也不算貴，算是正常範圍，如果樓主在意品牌的話，聯想y400確實不錯，畢竟遊戲戰神稱號不是白叫的，賣的也火，但價效比不算太高，如果不在意品牌可以看看神舟精盾 k580s i7 d3，引數 cpu是i7 4核，記憶體4g 可加到8g，顯示卡n650 2g雙顯，遊戲主...
求4000元以內的筆記本，求4000元以內的筆記本推薦
推薦 戴爾inspiron 靈越 14 ins14vd 358 接近4000元，螢幕尺寸 14英吋 1366 768 處理器型 intel 酷睿i3 2330m 記憶體容量 2gb ddr3 1333mhz 硬碟容量 500gb 5400轉，sata顯示卡晶元 amd radeon hd 6470m...
求an （2n） （2n） 1的前n項和
an 2n 2n 1 1 1 2n 1 1 1 2n 1 2n 1 1 1 2 1 2n 1 1 2n 1 sn n 1 2 1 1 3 1 3 1 5 1 2n 1 1 2n 1 n 1 2 1 1 2n 1 n n 2n 1 這是我在靜心思考後得出的結論，如果能幫助到您，希望您不吝賜我一 滿意 ...
求字以內的情侶網名謝謝了，求六個字以內的情侶網名，謝謝了
最適合你的情侶網名是你自己才能想出來的 前面隨便幾個字再帶上你們名字的乙個字或你們所熟知的字眼 比如我和我愛人用的網名 神話傳說灬影羽 神話傳說灬紫衫 我苦笑著等待 你苦笑著釋懷 六個字以內的qq情侶網名 對n1放電 純屬欺騙 雖然八個字但是我覺得蠻好 能幫到你就行 呵呵 分子就不要了 有你我幸福丶...