nhờ các bạn : 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
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.
program tong;
uses crt;
var i: integer;
S: real;
begin
clrscr;
S:=0;
For i := 1 to 100 do S := S + 1/i;
Writeln('Tong cua S = ',S:0:3);
readln
end.
Câu hỏi trong lớp
Xem thêm
