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
4768
86490
7929
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
44835
1723
Em không phân biệt được khi nào s:=s+i trước hay là i:=i+1 trước
4768
86490
7929
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
44835
1723
Lệnh for..to..do là inc(i,1) trước đúng không ạ?
4768
86490
7929
tùy thôi em
4768
86490
7929
ủa for..do nó tự cộng chứ mk đâu cần cộng đâu .-.
2286
44835
1723
Lên skype đi chị
4768
86490
7929
uh, thắc mắc cứ hỏi .-.