Tin học viết chong trình tìm số tự nhiên n lớn nhất sao cho tổng : 1 + $\frac{1}{2}$ + $\frac{1}{3}$ + … +$\frac{1}{n}$ không vượt quá 2,123 sao đó đếm số 22/07/2021 By Remi viết chong trình tìm số tự nhiên n lớn nhất sao cho tổng : 1 + $\frac{1}{2}$ + $\frac{1}{3}$ + … +$\frac{1}{n}$ không vượt quá 2,123 sao đó đếm số n mình cảm ơn nhiều
uses crt;var s:real; n:longint;beginclrscr; while s<=2.123 do begin inc(n); s:=s+1/n; end; writeln(n-1);readlnend. Trả lời
uses crt; var S:real; N:integer; begin S:=0; N:=1; while S<=2123 do begin S:=S+1/N; N:=N+1; end; writeln(‘Ket qua la:’,S:8:3); writeln(‘N se la:’,N:8:3); readln end. Trả lời