pascal对给定的整数n(1大于等于n小于等于100),求下列式值.1+(1+2)+(1+2+3)……+(1+2+3+…+n)
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/20 10:34:20
![pascal对给定的整数n(1大于等于n小于等于100),求下列式值.1+(1+2)+(1+2+3)……+(1+2+3+…+n)](/uploads/image/z/5168762-26-2.jpg?t=pascal%E5%AF%B9%E7%BB%99%E5%AE%9A%E7%9A%84%E6%95%B4%E6%95%B0n%281%E5%A4%A7%E4%BA%8E%E7%AD%89%E4%BA%8En%E5%B0%8F%E4%BA%8E%E7%AD%89%E4%BA%8E100%EF%BC%89%2C%E6%B1%82%E4%B8%8B%E5%88%97%E5%BC%8F%E5%80%BC.1%2B%EF%BC%881%2B2%EF%BC%89%2B%EF%BC%881%2B2%2B3%EF%BC%89%E2%80%A6%E2%80%A6%2B%EF%BC%881%2B2%2B3%2B%E2%80%A6%2Bn%EF%BC%89)
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程序