数的变换 pascal

vari,a,b:longint;beginfori:=1000to9999dobegina:=idiv100;b:=imod100;ifsqr(a+b)=ithenwriteln(i);end;en

functiongcd(a,b:longint):longint;beginif(b=0)thenexit(a)elseexit(gcd(b,amodb));end;functionlcm(a,b:l

1.1最大公约数与最小公倍数1.算法1:欧几里德算法求a,b的最大公约数functiongcd(a,b:longint):longint;beginifb=0thengcdd:=aelsegcd:=g

这是结果：361529784361784529529361784529784361784361529784529361下面是代码varu:array[1..9]ofboolean;a:array[1.

Pascal是语言FreePascal,TurboPascal,Delphi是开发工具Delphi所用的Pascal有点不一样,是改造过的Pascal语言是语言,工具是工具就像C++对应的开发工具有T

类型：搜索本题动态规划无从下手,也无数学公式可寻,看来只能搜索（组合的生成算法）,其实1

varn,ans:longint;beginreadln(n);ans:=0;whilen>0dobegininc(ans);n:=ndiv10;end;writeln(ans);end.

vari,n:longint;functionys(x:longint):longint;vari:longint;beginys:=0;fori:=1toxdiv2doifxmodi=0thenys

十进制数转换为二进制数、八进制数、十六进制数的方法：二进制数、八进制数、十六进制数转换为十进制数的方法：按权展开求和法1．二进制与十进制间的相互转换：（1）二进制转十进制方法：“按权展开求和”例：（1

varm,i,max,j,t:longint;a:Array[0..10000]oflongint;f:array[1..10000]oflongint;beginreadln(m);fori:=1t

varn,a,b,i,i1,i2:integer;beginreadln(a,b);fori:=atobdobegini2:=1;fori1:=2totrunc(sqrt(i))doifimodi1=

完全数：因子（除了它本身）之和等于它本身的数programcs4;vari,n,s:integer;begins:=0;forn:=2to100dobegin{fori:=1tondo}fori:=1

vari:longint;beginfori:=1to500dobeginif(imod3=2)and(imod5=3)and(imod7=2)thenwriteln(i);end;end.

vars:string;a,b,c:longint;d:boolean;begind:=true;{试D先为true.｝read(s);c:=length(s);｛求字符串的长度.｝a:=cdiv2;

前面应该加上varifc[n,i]=c[s,i]不对正确：if(c[n,i]=c[s,i]){用and时应该加上括号}；马鞍数：5678945678345212349012548试过好使1,1是马鞍数

varn,i,j:integer;s:string;beginreadln(n);forn:=1tondobeginstr(n,s);i:=1;j:=length(s);while(i=jthenwr

var  a:array[1..9,1..9] of longint;  f:array[0..20,0..11,0..11] o

不得不问一句：LZ到底想干嘛?这样编程,岂止是很费时间?太麻烦了!先说一下你的问题：     你的代码的问题,首先在于很麻烦,看起来不容易找出错误,只

typenum=array[1..10000]ofinteger;vara:string;b:num;i,j,k,n:longint;ci:integer;procedureinit;beginrea

varv,u,x,y:array[0..9]oflongint;a:array[0..9,0..9]oflongint;b:array[1..1000]oflongint;sum:array[1..1