vct tinh 1+1/2+1/3+...+1/N ... cho den khi 1/n <= 0.01
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
TT
0
DP
2
9 tháng 2 2022
uses crt;
var n,i:integer;
s:real;
//chuongtrinhcon
function gthua(n:integer):real;
var gt:real;
i:integer;
begin
gt:=1;
for i:=1 to n do
gt:=gt*i;
gthua:=gt;
end;
//chuongtrinhcon
function lthua(n,x:integer):real;
var lt:real;
i:integer;
begin
lt:=1;
for i:=1 to x do lt:=lt*x;
lthua:=lt;
end;
//chuongtrinhchinh
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+(lthua(i,i)/gthua(i));
writeln(s:4:2);
readln;
end.
CD
2
9 tháng 5 2021
Câu 4:
a)
uses crt;
var n:integer;
{---------------------ham-tinh-giai-thua-----------------------}
fucntion gt(x:integer):real;
var i:integer;
begin
gt:=1;
for i:=1 to x do
gt:=gt*i;
end;
{--------------------chuong-trinh-chinh---------------------}
begin
clrscr;
write('Nhap n='); readln(n);
writeln(gt(n):0:0);
readln;
end.
9 tháng 5 2021
b)
uses crt;
var n:integer;
{-------------------thu-tuc-tinh-giai-thua------------------------}
procedure gt(x:integer);
var i:integer;
begin
gt:=1;
for i:=1 to x do
gt:=gt*i;
writeln(gt);
end;
{-----------------chuong-trinh-chinh--------------------------}
begin
clrscr;
write('Nhap n='); readln(n);
gt(n);
readln;
end.
26 tháng 4 2018
USES CRT;
VAR A:ARRAY[1..100] OF INTEGER;
N,I:INTEGER;
S:LONGINT;
BEGIN
CLRSCR;
WRITE('NHAP SO PHAN TU: ');
READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITE('A[',I,']=');
READLN(A[I]);
END;
S:=1;{VI KHI NHAN VOI 1 THI MOI RA KET QUA NHA BAN}
FOR I:=1 TO 8 DO S:=S*A[I];{CO THE THAY 8 THANH 5 DE LAM CAU 2}
WRITELN('TONG CAC PHAN TU TRONG MANG TU 1 DEN 8 LA: ',S);
READLN
END.
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
n:=1;
s:=1;
while 1/n>1/100 do
begin
n:=n+1;
s:=s+1/n;
end;
writeln(s:4:2);
readln;
end.