... (sum<=A) doBeginsum:= sum+1/i;i:= i+1;end;Write('Gia tri N thoa man dieu kien cua bai toan la: ', i:6);Readln;End.14. Program P3114; USES crt;VARa:array[1 41] of longint;n,i,j: ... ',bd);Readln;END. 20. Program P3120;USES crt;VAR N,a,b,c:word;BEGINclrscr;Writeln('Bieu dien so N thanh tong cua cac so Fibonaci');Write('Nhap N=');readln(N);write(N,' ... a[3]=3, a[4]=2.17. Cho trớc số tự nhiên N. Viết chơng trình lập một mảng số bao gồm các chữ số trong bi u diễn nhị phân của N. Ví dụ cho N=5 tức là 101 thì ta có mảng sau: a[0]=1, a[1]=0, a[2]=1.18....