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

TV

Viết chương trình nhập vào số nguyên n. In ra màn hình kết quả của phép toán: 1+1/2!+1/3!+...+1/n!

TN
31 tháng 12 2017 lúc 7:49

var n,i:integer;

s,mau:real;

begin

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

s:=0;

mau:=1;

for i:=1 to n do

begin

mau:=mau*i;

s:=s+1/mau;

end;

write(' tong la ',s);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
NN
Xem chi tiết
TT
Xem chi tiết
PK
Xem chi tiết
LK
Xem chi tiết
TU
Xem chi tiết
KB
Xem chi tiết
TT
Xem chi tiết
TH
Xem chi tiết
KS
Xem chi tiết
KS
Xem chi tiết