em nhờ các anh chị làm hộ e bài này: viết câu lệnh for-do tính tổng sau S=1+1/2+...+1/100= ∑1/n
2 câu trả lời
program bt;
uses crt;
var S:real;
i:integer;
begin
clrscr; S:=0;
for i:=1 to 100 do S:=S+1/i;
writeln(S:0:3);
readln;
end.
Uses crt;
Var
n, s: longint;
I : integer;
Begin
Clrscr ;
Writeln(' nhap n: ') ;
Read(n);
For I :=1 to n do s:= s +(1/n) ;
Writeln;
Write(' tong = ', s);
Readln;
End.
Câu hỏi trong lớp
Xem thêm
