Tin học viết chương trình tính tổng nhập n từ bàn phím : 1 + 1/2 +1/3 +…1/n 22/07/2021 By Isabelle viết chương trình tính tổng nhập n từ bàn phím : 1 + 1/2 +1/3 +…1/n
program T; uses crt; var n,i: integer; T: real; Begin write(‘Nhap n: ‘); readln(n); for i:=1 to n do T:=T+1/i; write(‘T = ‘,T); readln End. Trả lời