整数拆分pascal

想了想...1--varn,m:integer;functionf(n,m:integer):longint;vari,s:longint;{因为总和可能很大所以用longint}beginfori:

varn:longint;beginreadln(n);ifnmod7=0thenwriteln('yes'){除以7取余,是否等于0,等于则输出yes,否则输出no}elsewriteln('no'

pascalpascalpascal!

easy!自己调试programfenshuzi;varn,i,j:longint;f:array[0..100]oflongint;t:text;beginassign(t1,'split.in')

vari,k,n1,n2:integer;beginn1:=0;n2:=0;fori:=1to20dobeginreadln(k);ifk>0thenn1:=n1+1elseifk

用辗转相除不就行了!

varn,s:longint;beginread(n);s:=0;whilen0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.自创!

vark:array[1..100]oflongint;n:longint;procedureprint(x:longint);//输出vari:longint;beginifx=1thenexit;

vartop,j,n,m:integer;s:array[0..100]ofinteger;procedureprint;vari:integer;beginifs[1]nthenwrite(n,'=

其实这题运用一下数学思想就能优化许多纯粹的枚举肯定是徒劳无功的1/n=1/x+1/y=(x+y)/xy所以xy=n(x+y)=====>y=nx/(x-n)而x枚举的范围很容易知道在n+1到2nn+1

vara,n,i:longint;beginfori:=1to10dobeginread(a);ifa>0thenn:=n+1;end;write(n);end.

输入一个正整数N（不超过一百位）,如果N是偶数,则拆分N的各个数字相加求和；如果N是奇数,则拆分N的各个数字相乘求积.（如果是偶数则在输出时应加上“H=”,奇数则在输出时应加上“J=”）

programDoingData;varn:longint;sum:longint;n1:real;n2:longint;n3:real;a:array[0..1000]oflongint;f:arr

vari,n,r:longint;s:single;beginreadln(n);fori:=1tondobeginreadln(r);writeln(r*r*3.1415926:0:2);end;e

{而这10个数：106991041201071123310297100　按一定顺序排列后得到：120112107106104102100999733　正中间有两个数：104102,中位数就是这两个数的

vari,j,n,m:longint;procedureprint(c:char;a:integer);vari:longint;beginfori:=1toadowrite(c);end;begin

varc1,c2,c3:char;a,b,c:0..9;functionv(c:char):0..9;vari:integer;beginval(c,v,i);end;procedurep(a,b,c

floatdat=1234.5678;inta;//整数部分floatb;//小数部分a=(int)dat;//a=1234b=dat-a;//b=0.5678再用循环a分别对10取余和取整,余数便是

vars,n,a:longint;begins:=0;whilea0dobeginn:=amod10;s:=s+n;a:=adiv10;end;writeln(s);end.

1把一分数写成两个或两个以上分数单位的和,通常称分数拆分.2一般地,设a为大于1的自然数,在a分之一=几分之一加几分之一的括号里填入不同的自然数,使等式成立的解法是：（1）任选a的两个不同的约数（因数