Viết chương trình tính tổng S=0+2+4+6+8...+2n .Với n là số nguyên nhập từ bàn phím, sau đó in ra kết quả màn hình giúp mk với mk cần gấp
2 câu trả lời
program oken;
uses crt;
var n,s,i:integer;
begin
write('nhap n: '); readln(n);
for i:=2 to n*2 do if i mod 2=0 then S:=s+i;
writeln('tong: ',s);
readln;
end. cho mình xin câu trả lời hay nhất
program baitap;
var S,i: integer;
begin
read(n);
S:=0
for i:=0 to 2n do
if (i>0) and (i od2=0) then
S:=S+i;
writeln('S',S);
readln
end.