Tin học viết chương trình tính tổng: S= 1 + 1/2 + 1/3 + – + 1/n với 1/n <= 1000, sử dụng lệnh while ... do giúp mk vsss 21/07/2021 By Reese viết chương trình tính tổng: S= 1 + 1/2 + 1/3 + …. + 1/n với 1/n <= 1000, sử dụng lệnh while ... do giúp mk vsss
program tinhtong; uses crt; var i:integer; n:real; S:real; begin clrscr; writeln(‘ n = ‘); readln(n); S:=0; i:=1; while 1/n <= 1000 do begin S:=S+1/i; i:=i+1; end; writeln(‘Tong la: ‘,S:2:3); readln end. Trả lời