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
Cục thịt

Viết chương trình tính:
a.\(\text{ }\text{ }1+\dfrac{1}{2!}+\dfrac{1}{3!}+...+\dfrac{1}{n!}.\)

b. \(1+\dfrac{1}{2^2}+\dfrac{1}{3^2}+...+\dfrac{1}{n^2}.\)

c. \(3+\dfrac{4}{3}+1+...+\dfrac{n+2}{2n-1}.\)

Luân Đào
17 tháng 2 2019 lúc 11:11

a.

program caua;

uses crt;

var x,i, n: integer;

A: real;

begin

clrscr;

write('Nhap so n, n = '); read(n);

A:=0; x:=1;

for i:=1 to n do

begin

i:=x*i; A:=1/i;

end;

write("Gia tri bieu thuc dau tien la',A);

readln

end.


Các câu hỏi tương tự
Vũ Duy
Xem chi tiết
Hoàng Thị Xuân Mai
Xem chi tiết
Vũ Duy
Xem chi tiết
bùi công tuấn
Xem chi tiết
linh nguyễn
Xem chi tiết
Eriken
Xem chi tiết
Nguyen Thi Thanh Thao
Xem chi tiết
DoriKiều
Xem chi tiết
Sherry Lê
Xem chi tiết