Question

viết chương trình tính tổng T=1+\(\dfrac{1}{2}\)+\(\dfrac{1}{3}\)+...+\(\dfrac{1}{n}\). trong đó n là số nguyên nhập từ bàn phím

Answer 1

program Tinh_tong;

uses crt;

var

Answer 2

program bai1;

var i,n:longint;s:real;

begin

write('N= ');

readln(n);

s:=1;

for i:=2 to n do s:=s+1/i;

write('s= ',s);

readln

end.

Answer 3

var i,n:integer; t:tong;

begin

readln(n); s:=0;

for i:=1 to n do t:=t+1/i;

writeln(t);

end.

Answer 4

var n,t,s:integer;

begin

write('n=');readln(n);

t:=0;

for i:=1 to n do t:=t+1/i;

writeln(' Tong la: ',s);

readln;

end.

Answer 5

mik gửi lại

var n,i,t:integer;

begin

write('n=');readln(n);

t:=0;

for i:=1 to n do t:=t+1/i;

writeln(' Tong la: ',t);

readln;

end.