Viết câu lệnh for do tính S = 1 + 1/2! +1/3! +....+1/n!
1 câu trả lời
var s:real;i,n:integer;
begin
Write('Nhap so n:');readln(n);
s:=0;
For i:=1 to n do
s:=s+1/i;
Writeln('Tong:',s:10:7);
readln
end.
Câu hỏi trong lớp
Xem thêm
