编程求出s= -1+3-5+7-9…+19的得数,要pascal的
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/21 00:43:54
编程求出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)的好不好(和二楼的说,别的人别误会)
有分哦
还有一个:编程求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.
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整除的数的和