1樓：藍色的仙道_彰
兩層for迴圈就可以了啊。
program zl971013;
var i,j,s,n:integer;
begin
s:=0;
read(n);
for i:=1 to n do
for j:=1 to i do
s:=s+j;
write(s);
endl.
2樓：
program exam;
var i,j,s,n:integer;
begin
while not eof do
begin
readln(n);
s:=0;
for i:=1 to n do
for j:=1 to i do s:=s+jwriteln(s);
end;
end.
3樓：big吸管
program exam;
var n,s:integer;
i,j:integer;
begin
s:=0;
readln(n);
for i:=1 to n do
for j:=1 to i do
s:=s+j;
write(s);
readln
end.
4樓：匿名使用者
vari,j,n,ans:longint;
begin
readln(n);
for i:=1 to n do
for j:=1 to i do
inc(ans,j);
writeln(ans);
end.
pascal題目，Pascal題目
1.var a,b,i,m,n longint t text begin a 0 b 0 readln m for i 1 to m do begin readln n if n mod 2 0 then a a n else b b n end writeln b writeln a end.2....
pascal題目求解
var n,i,j,k byte begin write n i j readln n,i,j if abs j n writeln n abs k n writeln for i 1 to n n 1 do begin for j 1 to n n 1 do begin if abs j n wr...
急需題目答案急需題目答案。。
挑我會的回答。記 copy得給分。2 冬季 4 小麥，玉米 水稻 5 恩施 湘西 6 平原 丘陵 高原 盆地 7 中南半島 湄公河三角洲 8 大陸性氣候 9 夏季 維吾爾族 11 南美洲 大洋洲 南極洲 12 歐洲 非洲 13 第三階梯 14 季節性 15 青藏高原 青海 四川 16 河套平原 寧夏...