作业帮 > 综合 > 作业

编程求出s= -1+3-5+7-9…+19的得数,要pascal的

来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/30 06:59:23
编程求出s= -1+3-5+7-9…+19的得数,要pascal的
有分哦
还有一个：编程求s=1+(1+3)+(1+3+5)+ …+(1+3+5+…+19)得得数,两个都要用repeat程序,
E是s=1/(1*3)+1/(3*5)+1/(5*7)+ …+1/(17*19)的好不好（和二楼的说,别的人别误会）
（1）
var i,s:longint;
begin
i:=0;
s:=0;
repeat
i:=i+1;
if i mod 20 then s:=s-(2*i-1);
if i mod 2=0 then s:=s+(2*i-1);
until i=10;
write(s);
end.
(2)
var i,j,s:longint;
begin
i:=0;
j:=0;
s:=0;
repeat
i:=i+1;
repeat
j:=j+1;
s:=s+2*j-1;
until j=i;
j:=0;
until i=10;
write(s);
end.
计算式子的值：s=1+2+3+...+100（编程 pascal语言 for语句） pascal编程输出图形 7 6 5 8 1 4 9 2 3 10 11 怎样用pascal编程求出两数的最小公约数和最小公倍数（不用函数）. 用键盘输入整数S,然后计算1+2+3+…+N的和,在和未超过S(包括相等)的情况下,最大的N是多少?用pascal编程 pascal 编程 由小到大编的找出10个数,它们满足被2,3,5余时,余数都为1 pascal编程,有关图的遍历 pascal 现在有一个数列：0,1,3,8,21,55,144······,请编程求出数列中第2010个数除以6的余数 用VB编程计算s=1+3+5+7+9+……+53+55的值. 已知 s=1+3+5+7+9+...+n,编程求s>1000时n的最小值 vb编程求出被3、5、7除,余数为1的最小的五个正整数(1不算). 编程完成功能:求SUM=1+2+3+…>100,并求出累加的最后一个自然数的值 求一个c语言编程,分别求出1~1000内能被3,5,7整除的数的和