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