pascal输入一个整数n,用数组方法输出前n个斐波那耶数列.

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

用辗转相除不就行了!

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

楼上两位全错了……不解释,不信自己手算.定理：求前n个奇数的总和=n的平方varn:longint;beginreadln(n);writeln(n*n);end.

第四个if那行末尾是)而不是>在错误信息那里有提示错误发生在(14,2)即第14行第2位,在附近（不一定一定在那里）找找就能发现

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

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

1+2+3+……+n的和可以看成是一个上底是1下底是n的梯形的面积.|1||2|||3||||4…………所以1+2+3+……+n=n*（1+n）/2.1)programsum1;varb,i:long

varn,i,j,k:longint;t:boolean;beginreadln(n);ifn=1thenbeginwritelN('no');halt;end;t:=true;fori:=2totr

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

vari,j,n:longint;z:boolean;beginreadln(n);writeln(2);fori:=3tondobeginz:=true;forj:=2toi-1doifimodj=

设a[0](等于0)到a[i]的部分和为s[i],则只要求出s[0],s[1],…,s[n]之间的关系即可.而他们之间的关系可以用有向图表示,且在有向图中连成环的即为无解.对于a[i]至a[j]的和的

核心代码readln(n);whilen0dobeginifn=1thenwriteln(0)elsebeginforj:=2tondoifprime(j)theninc(ans);writeln(a

vari,n:longint;b:boolean;beginreadln(n);b:=true;ifn

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

数据太大了吧……只好用高精度了.下面是高精度的代码：procedureReadData(vart:hp);vari,len:integer;st:string;beginreadln(st);fill

vari,n:longint;beginreadln(n);i:=7;whilei

using System;namespace ConsoleApplication2{    class Program 

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

#include#includeintn=0;intnum=0;intmin=0;inti=0;intmain(void){\x09printf("请输入n:\n");\x09scanf("%d",&