Đề:
Bài giải :
Program shopkienthuc;Tại File Pas : giaibaitapyeucau.pas
Uses crt;
Var j,n:integer;
gt:longint;
S:real;
Begin
Clrscr;
Write('nhap n='); readln(n);
If (n<0) then write(#7,'khong thuc hien duoc vi', n,'<0')
Else
begin
gt:=1;
S:=1;
For j:=1 to n do
Begin
gt:=gt*j;
S:=S+1/gt;
End;
writeln('S=',S:6:2);
Readln;
End;
Readln
End.
Jillur Rahman
I'm Jillur Rahman. A full time web designer. I enjoy to make modern template. I love create blogger template and write about web design, blogger. Now I'm working with Themeforest. You can buy our templates from Themeforest.
Website: http://masala-jr.blogspot.com/
No Comment to " Tính tổng 1/n! trong Pascal "
(+) Nếu thấy bài viết còn thiếu sót hay cần bổ sung thêm rất mong bạn góp ý để blog ngày càng hoàn thiện.
(+) Khi đăng góp ý, bạn vui lòng viết Tiếng Việt đủ dấu và nhận xét đó có liên quan đến bài viết. Rất vui vì bạn đã đọc bài và cho ý kiến.