Question

1. Viết chương trình tính tổng

T = 1 + 1/2 + 1/3 +... + 1/100

2. Viết chương trình tính tích

P = 1 × 1/2 × 1/3... 1/3

Answer 1

var n,t:integer;

begin

t:=0;

for i:=1 to 100 do t:=t+(1/i);

write(' Tong la: ',t)

readln;

end.

2) var i:integer;

p:real;

begin

p:=1;

for i:=1 to 3 do p:=p*(1/i);

write(' Tich la: ',p:1:1);readln;

end.

Answer 2

bài 1 thì chắc thế này là đúng vì lâu rồi mình làm lại dạng này :)

var i,T:real;

begin

T:=0;

for i:=1 to 100 do

T:=T+1/i;

writeln('T=',T);

readln

end.

chúc may mắn, à, có j thử lại xem mình làm có đúng hem hộ mình nhé, cám ơn :)

Answer 3

var n,t:integer;

begin

t:=0;

for i:=1 to 100 do t:=t+(1/i);

write(' Tong la: ',t)

readln;

end.

2) var i:integer;

p:real;

begin

p:=1;

for i:=1 to 3 do p:=p*(1/i);

write(' Tich la: ',p:1:1);readln;

end.