Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] 判断指定的数是否是回文数 Pascal代码 →→→→→进入此内容的聊天室

来自 , 2020-08-26, 写在 Delphi (Object Pascal), 查看 114 次.
URL http://www.code666.cn/view/7ce30eeb
  1. var s:longint;
  2. 　　function aa(a:longint):boolean;
  3. 　　var c:array[1..10] of integer;
  4. 　　 b,s,j,k,i:integer;
  5. 　　begin
  6. 　　b:=a;
  7. 　　i:=11;
  8. 　　while a>0 do
  9. 　　begin
  10. 　　i:=i-1;
  11. 　　 c[i]:= a mod 10;
  12. 　　 a:=a div 10;
  13. 　　end;
  14. 　　j:=0;
  15. 　　for k:=10 downto i do
  16. 　　 j:=j*10+c[k];
  17. 　　 if j=b then
  18. 　　 aa:=true
  19. 　　 else aa:=false;
  20. 　　end;
  21. 　　begin
  22. 　　 read(s);
  23. 　　 write(aa(s));
  24. 　　end.
  25. //delphi/7230

回复 "判断指定的数是否是回文数 Pascal代码"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666