Tin học Hãy sử dụng câu lệnh lặp với số lần chưa biết trước để biết chương trình tính tổng T=1+1/2+1/3 18/07/2021 By Remi Hãy sử dụng câu lệnh lặp với số lần chưa biết trước để biết chương trình tính tổng T=1+1/2+1/3
var n: byte; T: real; Begin n:=1; t:=0; While n<=3 do Begin T:=t + 1/n; n:=n + 1; End; Write(t); Readln End. Trả lời
program tinh_tong; uses crt; var n:byte; t:real; begin clrscr; n:=1; t:=0; while n<=3 do begin t:=t+1/n; n:=n+1; end; write(‘T= ‘t:0:3); readln; end. Trả lời