Đăng nhập để hỏi chi tiết
8
3
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
8000
4536
uses crt;
var n,m,i,p: longint;
begin
readln(n);
p := 1;
m := 0;
for i := 1 to n do
begin
m := m + p;
p := p + 3;
end;
writeln(m);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin