2 câu trả lời
program CauHoi;
uses crt;
var i,n :integer; S :qword;
begin
write('Nhap so n: '); readln(n);
For i:=1 to n do S:=S+2*i;
writeln('Ket qua la: ',S);
readln;
end.
Bước 1 : Nhập số nguyên n
Bước 2 : i ← 0; s ← 0;
Bước 3 : i ← i + 2 ; s ← s + i;
Bước 4 : nếu i > 2n thì đưa ra S rồi kết thúc
Bước 5 : quay lại bước 3
