Viết phương trình tổng sau: S=1+1/2+1/3+...1/105 (Lập trình ra nha mn giúp em vs mai kt 15p r)
2 câu trả lời
Program BTH;
uses crt;
var i,n:longint;
s:real;
begin
clrscr;
For i:=1 to 105 do
s:=s+1/i;
writeln('Tong day so tren la: ',s:4:2);
readln;
end.
program oken;
uses crt;
var i: byte;
s: real;
begin
clrscr;
s:=0;
for i:=1 to 105 do s:=s+(1/i);
writeln('S=',s:0:3);
readln;
end.
Câu hỏi trong lớp
Xem thêm