2.
In: x, n.
Out: s (giá trị phép tính).
MTTT:
Bước 1: s ← 0; a ← 1.
Bước 2: a ← a*x; s ← s+1/a; i ← i+1.
Bước 3: Nếu i<=n thì quay lại bước 2.
Ngược lại thì chuyển đến bước 4.
Bước 4: Thông báo s và kết thúc thuật toán.
3.
program phuongt;
uses crt;
var A: array[1..500] of integer;
n, s, i, j: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
i:=1;
repeat
begin
A[i]:= n mod 2;
n:= n div 2;
i:=i+1;
end;
until n=0;
write('He nhi phan la: ');
for j:=i-1 downto 1 do write(A[j]);
readln
end.
