Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Vũ Duy

Viết chương trình tính tổng :

1, S= \(\dfrac{1}{2}+\dfrac{1}{4}+\dfrac{1}{6}+....+\dfrac{1}{2n}\)

2,S= \(\dfrac{1}{1!}+\dfrac{1}{2!}+\dfrac{1}{3!}+...+\dfrac{1}{n!}\)

Thái Sơn Phạm
5 tháng 1 2018 lúc 21:20

program Bai_1;

uses crt;

var n,i:integer; s:real;

begin

clrscr;

write('Nhap n: '); readln(n);

for i:=1 to n do s:=s+1/(2*i);

write('S=',s);

readln;

end.

program Bai_2;

uses crt;

var n,i:integer; gt:longint; s:real;

begin

clrscr;

write('n='); readln(n);

gt:=1;

for i:=1 to n do

begin

gt:=gt*i;

s:=s+1/gt;

end;

write('S=',s);

readln;

end.


Các câu hỏi tương tự
bùi công tuấn
Xem chi tiết
Hoàng Thị Xuân Mai
Xem chi tiết
Vũ Duy
Xem chi tiết
Cục thịt
Xem chi tiết
linh nguyễn
Xem chi tiết
Sherry Lê
Xem chi tiết
Eriken
Xem chi tiết
Tài Thành
Xem chi tiết
tạ thị thanh thảo
Xem chi tiết