题目描述 给出一个整数n,其中n小于等于1000.请求出1~n中所有的素数的个数

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/01 08:18:56
给出数列:4,7,10,13,16,19,22,25...,再给出一个整数n,让你求出列前n项的和,用pascal解

第一个数是4第n个数是3n+1所以前n项和(3n^2+5n)/2所以varn,i:longint;beginreadln(n);writeln((3*n*n+5*n)div2);end.

N是一个大于1的整数,试给出一个操作步骤,对N是否为质数作出判定

分解质因数,日过它只有1和本身,就说明是质数~

给出一个正整数N(N

vars,n,i,t:longint;beginreadln(n);fori:=1tondobegint:=i;whilet>0dobegins:=s+tmod10;t:=tdiv10;end;end

给出一个整数n,如果n是偶数,n变为n div 2,否则n变为n*3+1,问经过多少步n变为1,求一pascal程序.

varn,t:longint;beginread(n);t:=0;whilen1doifnmod2=0thenbegint:=t+1;n:=ndiv2;endelsebegint:=t+1;n:=n*

pascal编程给出一个n,求前n个奇数的总和 输入 一行,一个整数n 输出 一行,表示总和

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

给出一个整数n,其中n小于等于100000,请统计n的因数的个数

#includeintmain(intargc,constchar*argv[]){inta;intb=0;inti=1;printf("请输入数字:");scanf("%d",&a);for(int

求一pascal程序,给出一个整数n,其中n小于等于10000,请统计n的因数的个数.

varn,i,ans:integer;beginreadln(n);ans:=0;//读入,计数器置0fori:=1tondoifnmodi=0theninc(ans);//从1到n循环找到一个他的因

pascal高精度拆分整数 【问题描述】 输入一个正整数N(不超过一百位),如果N是偶数,则拆分N的各个数字相

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

证明:3整除n(n+1)(2n+1),其中n是任何整数

n为3的倍数时,n(n+1)(2n+1)能被3整除.n不是3的倍数时,n=3k+1或n=3k+2(k为自然数,包括0).n=3k+2时,n+1=3k+2+1=3(k+1),是3的倍数,n(n+1)(2

给出一个整数n,让你判断n是否是素数,如果n是素数,则输出 yes 否则输出 no 用pascal语言做题

programsushu(input,output);vari,n,t:integer;beginread(n);fori:=2ton-1doifnmodi=0thent:=1;ift=1thenwr

pascal编程给出一个整数n,接下来有n行,每行一个整数r,表示圆的半径

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

求算法问题:一个数组a中有n个整数,如何设计算法,使其中相同的数只有一个.并给出程序.

对数组进行排序,然后将相邻的如果相等的去掉就可以了intm=0;for(i=1;i

数论:已知m>0,n>0,(m,n)=1,求证方程x^m=y^n的全部整数解可以由x=t^n,y=t^m给出,其中t取任

将x,y质因数分解x=(P1)^(a1)*(P2)^(a2)*...*(Ps)^(as)y=(Q1)^(b1)*(Q2)^(b2)*...*(Qr)^(ar)不妨设P1

pascal程序设计 输入一个整数n,n

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

C语言,输入一个整数n再输入n个整数,输出其中所有偶数

inti,a,n;int*pl=NULL;printf("inputn:");scanf("%d",&n);if(n>0){pl=(int*)malloc(n*sizeof(int));}for(i=

给出一个整数n,其中n小于等于1000.请求出1~n中所有的素数的个数

varn,i,j,s:integer;x:boolean;beginread(n);s:=2;x:=true;ifn