pascal, cấu trúc lặp: tính và đưa ra tổng của: S=1+3+5.......+(2n+1)
2 câu trả lời
program tinhtongsole;
var s, n real;
begin
s:=1;
write('nhap n ');
readln(n);
For i:=1 to n do s:=s+(2*i+1);
readln;
end.
uses crt;
var res,n,i:longint;
begin
clrscr;
res := 0;
write('N = ');readln(n);
for i := 1 to n do
if i and 1 = 1 then inc(res,i);
writeln('Tong cac so le = ',res);
readln;
end.
