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 !
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 !