Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
program phuongt;
uses crt;
var s, n, i: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
n:=3*n;
i:=3;
while i<=n do
begin
if i mod 3 = 0 then s:=s+i;
i:=i+1;
end;
write('S = ', s);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
uses crt;
var n,i,s:integer;
begin
clrscr;
i:=0;
write('Nhap n: '); readln(n);
n:=n*3;
while i<=n do
begin
inc(s,i);
inc(i,3);
end;
write(s);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
4773
85980
7940
nếu là +3 thì không cần điều kiện i mod 3 = 0 làm gì cho mất công
2286
44873
1724
Em không phân biệt được khi nào s:=s+i trước hay là i:=i+1 trước
4773
85980
7940
nếu i+1 trước thì bên ngoài i=2, nếu i+1 sau thì bên ngoài i=3
2286
44873
1724
Lệnh for..to..do là inc(i,1) trước đúng không ạ?
4773
85980
7940
tùy thôi em
4773
85980
7940
ủa for..do nó tự cộng chứ mk đâu cần cộng đâu .-.
2286
44873
1724
Lên skype đi chị
4773
85980
7940
uh, thắc mắc cứ hỏi .-.