Tin học Bài tập Pascal thi học kỳ 2

[Nguyễn Hữu Minh Trí]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Mọi người giúp em bài này với ạ. Khó thật sự luôn í

 

[System32]

program eulersum;
uses crt;
var n, x, i: integer;
      S, f: real;
begin
       clrscr;
       write('Nhap n: ');
       readln(n);
       write('Nhap x: ');
       readln(x);
       S := x;
       f := x;
       for i := 1 to n-1 do
             begin
                      f := f * (x/(i+1));
                      S := S + f;
             end;
       writeln('Tong S: ', S:5:2);
       readln
end;