var a,i,s:longint; begin readln(a); s:=0; for i:=1 to a do s
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/07 16:59:32
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:=s+i;
writeln(s);
end.
![var a,i,s:longint; begin readln(a); s:=0; for i:=1 to a do s](/uploads/image/z/18727323-51-3.jpg?t=var+a%2Ci%2Cs%3Alongint%3B+begin+readln%28a%29%3B+s%3A%3D0%3B+for+i%3A%3D1+to+a+do+s)
读入a,输出1~a的和.(等差数列)
以下源程序等同于以上程序:
var a:longint;
begin
readln(a);
writeln((1+a)*a div 2);
end.
以下源程序等同于以上程序:
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