pascal对给定的整数n(1大于等于n小于等于100),求下列式值.1+(1+2)+(1+2+3)……+(1+2+3+…+n)

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/20 02:46:25
pascal对给定的整数n(1大于等于n小于等于100),求下列式值.1+(1+2)+(1+2+3)……+(1+2+3+…+n)

pascal对给定的整数n(1大于等于n小于等于100),求下列式值.1+(1+2)+(1+2+3)……+(1+2+3+…+n)
pascal对给定的整数n(1大于等于n小于等于100),求下列式值.
1+(1+2)+(1+2+3)……+(1+2+3+…+n)

pascal对给定的整数n(1大于等于n小于等于100),求下列式值.1+(1+2)+(1+2+3)……+(1+2+3+…+n)
var
i,j,n:integer;
ans:longint;
sum:array[0..101] of integer;
begin
read(n);
fillchar(sum,sizeof(sum),0);
for i:=1 to n do
sum[i]:=sum[i-1]+i;
sum:=0
for i:=1 to n do
ans:=ans+sum[i];
write(ans);
end.

pascal对给定的整数n(1大于等于n小于等于100),求下列式值.1+(1+2)+(1+2+3)……+(1+2+3+…+n) pascal对给定的整数n(1小于等于n小于等于100),求下式的值1+(1+2)+(1+2+3)+……+(1+2+3+……+n) Sum to N pascal对任意给定的N (4 任意给定一个大于1的整数n,设计一个算法求出n的所有因数. 任意给定一个大于1的整数n,设计一个算法求出n的所有因数. 任意给定一个大于1的整数n 设计一个算法求出n的所有因数 任意给定一个大于1的整数n,设计一个算法求出n的所有因数. 任意给定一个大于1的整数n,设计一个算法求出n的所有质因数 在N中取数 PASCAL由键盘输入N,B={1,2,...,N}为连续N个整数的集合,取B中若干不同的整数,使这些整数之和为给定的M,共有多少种不同的取法? 选择排序算法对给定的一串数字,进行从小到大的排序.第一行为n,表示整数的总数.n大于等于1,且小于等于10000.接下来的一行中,为n个整数,范围在-100000~100000之间.按照从小到大的次序输出每个 任意给定一个大于1的整数n,设计一个算法求出n的所有因数.并编程. 任意给定一个大于1的整数n,设计一个算法求出n的所有因数 用qbasic语言回答! 任意给定一个大于1的整数n,试设计一个算法判定n是否为质数 任意给定一个大于一的整数n,设计一个算法求出n的所有因数 任意给定一个大于一的整数n,设计一个算法求出n的所有因数 PASCAL语言求程序:对于给定的n,求1至n中有多少个数是质数 求一pascal程序,给出一个整数n,其中n小于等于10000,请统计n的因数的个数. 给出一个整数n,其中n小于等于1000.请求出1~n中所有的素数的个数求一pascal程序