Question

Cây hỏi: em hãy lập trình để tính tổng nghịch đảo của 50 số liên tiếp. "" Thứ 2 ngày 18/3 là mik thi rồi. Bài này hình như cũng ở trong SBT tin đó... nhưng mik kông có , hi hi. M.n giúp đỡ mình nhé!! :-). Bye !!

Answer 1

program tong_nghich_dao;

uses crt;

var i, n: integer;

S: real;

begin

clrscr;

write('Nhap so tu nhien bat dau: n = '); read(n);

S := 0;

for i:= n to (n + 49) do

S:=S + 1/i;

write('Tong can tim la S = ',S);

readln

end.

Answer 2

Hi. Luân đào, môi đã thử trên pascal nhưng sao nó chỉ hiện lên "nhập giá trị của n thôi. Nó kông tính tiếp cho mik, đc tổng . ??.