A)
program ct;
uses crt;
var S,i,n:integer;
begin
clrscr;
write('nhap n:=');readln(n);
S:=0;
for i:=1 to n do S:=S+i;
writeln('tong la:',S);
readln
end.
B)
program ct;
uses crt;
var S,i,n:integer;
begin
clrscr;
write('nhap n:=');readln(n);
S:=0;
for i:=1 to n do
if i mod 2=0 then S:=S+i;
writeln('tong la:',S);
readln
end.
C)
program ct;
uses crt;
var S,i,n:integer;
begin
clrscr;
write('nhap n:=');readln(n);
S:=0;
for i:=1 to n do
if i mod 2=1 then S:=S+i;
writeln('tong la:',S);
readln
end.
D)
program ct;
uses crt;
var i,n:integer;S:real;
begin
clrscr;
write('nhap n:=');readln(n);
S:=0;
for i:=1 to n do
if i mod 2=0 then S:=S+1/i;
writeln('tong cac so chan la:',S);
readln
end.
E)
program ct;
uses crt;
var i,n:integer;S:real;
begin
clrscr;
write('nhap n:=');readln(n);
S:=0;
for i:=1 to n do
if i mod 2=1 then S:=S+1/i;
writeln('tong cac so lela:',S);
readln
end.
F)
program ct;
uses crt;
var i,n:integer; S:real;
begin
write('nhap n:=');readln(n);
S:=0; i:=3;
while i<=n do
begin
S:=S+1/i;
i:=i+3;
end;
writeln('tong la:',S);
readln
end.