pascal对给定的整数n(1大于等于n小于等于100),求下列式值.
来源:学生作业帮 编辑:拍题作业网作业帮 分类:英语作业 时间:2024/04/25 23:44:06
pascal对给定的整数n(1大于等于n小于等于100),求下列式值.
1+(1+2)+(1+2+3)……+(1+2+3+…+n)
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.
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),求下式的值
选择排序算法对给定的一串数字,进行从小到大的排序.第一行为n,表示整数的总数.n大于等于1,且小于等于10000.接下来
求一pascal程序,给出一个整数n,其中n小于等于10000,请统计n的因数的个数.
收敛的条件判断“对任意给定的数e属于(0,1),总存在正整数N,当n大于等于N时,恒有|Xn-a|小于等于2e”是数列{
pascal质数问题任何大于 1 的自然数 N,都可以写成若干个大于等于2且小于等于 N 的质数之和表达式(包括只有一个
2000(a乘以10的N次方)=1.6乘以10的12次方 求a和n的值(a大于等于1小于10,n是整数)
已知关于x的不等式组 x-m大于等于n 2x-m小于等于2n+1的解集是3小于等于x小于5 求m的二次方+n的二次方的值
已知关于X的不等式组X减M大于或等于N 2X减M小于2N+1 的解集为3小于或等于X小于5,求M,N的值
任意给定一个大于1的整数n 设计一个算法求出n的所有因数
任意给定一个大于1的整数N,设计一个算法求出N的所有因数
任意给定一个大于1的整数n,设计一个算法求出n的所有因数
任意给定一个大于1的整数n,设计一个算法求出n的所有质因数