a.
program phuongt;
uses crt;
var s, n, i: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
write('Tong = ', s:3:1);
readln
end.
b.
program phuongt;
uses crt;
var s, i: integer;
begin
clrscr;
s:=0;
for i:=10 to 100 do s:=s+i;
writeln('Tong (theo for...do) = ', s);
s:=0; i:=10;
while i<=100 do
begin
s:=s+i;
i:=i+1;
end;
write('Tong (theo while...do) = ', s);
readln
end.
