black_cat

New Member
Có chương trinh pascal như thế này: viết 1 chương trình tính tổng s=1+1/2+1/3+...+1/i


Với n đọc vào máy qua bàn phím.



program tdfor;


var


i,n:integer;


s:real;


bsgin


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


s:=0;


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


writeln('gia tri tinh duoc la :',s:6:2);


readln;


end.



cái chổ s:6:2 này có nghĩa là j vậy mấy bác có thể giải KẾT rõ không ?/ thank !
 
Top