
Quảng cáo
1 câu trả lời 402
a)
program bai5;
uses crt;
var n:integer;
y:real;
begin
clrscr;
y:=0;
for n:=1 to 50 do
y:=y+n/(n+1);
writeln('y=',y:8:4);
readln;
end.
Kết quả:
b)
program bai5;
uses crt;
var n,dem:integer;
e:real;
gt:longint;
begin
clrscr;
e:=1;
gt:=1;
dem:=1;
while 1.0/gt >2*0.000001 do
begin
e:=e+1.0/gt;
gt:=gt*dem;
dem:=dem+1;
end;
writeln('e=',e:8:4);
readln;
end.
Kết quả:
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86064
Gửi báo cáo thành công!
