viết chương trình tính tổng s=1+3+5+...+n biết rằng giá trị n lẻ được nhap tu ban phim
2 câu trả lời
program baitap;
uses crt;
var
n,i,s:integer;
begin
readln(n);
s:=0;
i:=1;
while i <= n do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
readln;
end.
var
n,i,s:integer;
begin
readln(n);
s:=0;
i:=1;
while i <= n do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
readln;
end.
