作业帮 > 综合 > 作业

var a,i,s:longint; begin readln(a); s:=0; for i:=1 to a do s

来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/11/13 14:22:27
var a,i,s:longint; begin readln(a); s:=0; for i:=1 to a do s:=s+i; writeln(s); end.
var
a,i,s:longint;
begin
readln(a);
s:=0;
for i:=1 to a do
s:=s+i;
writeln(s);
end.
var a,i,s:longint; begin readln(a); s:=0; for i:=1 to a do s
读入a,输出1~a的和.（等差数列）
以下源程序等同于以上程序：
var a:longint;
begin
readln(a);
writeln((1+a)*a div 2);
end.
Dim a(4) s=0 For i=1 to 4 s=s+a(i) Next i var i,j:integer; begin for i:=1 to 5 do begin for j:=1 to i i=1;a=0;s=1; do{a=a+s*i;s=-s;i++;}while(i ..Dim a() a=Array(1,3,5,7,9) s=0 For i=1 To 4 s=s*10+a(i) Ne if(s[i]>=‘a’&&s[i] dim I% ,S% s=0 for I=5 to 1 s=s+i next I print “s=” ; s 怎么看的 it's too late for school,i don't know---------.A.what to do 补全对话,一空一词A:What can I do for you?B:I want to buy a pair of s it's time for class _____.A.to begin B.beginning C.begin D.b 右图是计算首相为一的数列{an}前m项的和Sm程序 a=1 s=0 i=1 DO s=s+a a=2*a+1 i=i+1 s=0 For i=1 to 10 step 2 s=s+i Next Print s I do not think he's paid for it,------------?A.do I B.has he