program tongA;
var
n: integer;
A, i: real;
begin
write('Nhap n: ');
readln(n);
A := 0;
i := 1;
while i <= n do
begin
A := A + 2 / i;
i := i + 1;
end;
writeln('Tong A la: ', A:0:2);
readln;
end.
Pascal:
program tinh_tong_A;
var
n: integer;
i: integer;
A: real;
begin
writeln('Nhap so nguyen duong n: ');
readln(n);
A := 0;
i := 1;
while i <= n do
begin
A := A + 2/i;
i := i + 1;
end;
writeln('Tong A = ', A);
readln;
end.
Python:
n = int(input("Nhập giá trị của n: "))
A = 0
i = 2
while i <= n:
A += 2/i
i += 1
print("Tổng A =", A)