Bài 1: (5đ) Tính tổng. 4 1 2 Cho S ==+= 2 3 3 n n+1 +…+ + và P=1+2+3+...+x Viết chương trình nhập số nguyên dương n từ bàn phím. In ra màn hình: + Tổng S (làm tròn lấy 4 chữ số thập phân). + Giá trị x lớn nhất sao cho P ≤ n. Ví dụ: Với n = 4 thì in ra kết quả: S = 2,7167 x = 2

Đáp án + Giải thích các bước giải:

 Cho anh gủi nhá:

program Pascal_Program;

var
  n: integer;
  s: real;
  p: integer;
  x: integer;

begin
  Write('Nhap so nguyen duong n: ');
  ReadLn(n);

  // Tinh tong S
  s := 4;
  for i := 2 to n do
    s := s + 1 / i;

  // Tinh gia tri x lon nhat
  p := 0;
  x := 0;
  while p <= n do
  begin
    x := x + 1;
    p := p + x * (x + 1) div 2;
  end;

  // In ket qua
  WriteLn('Tong S:', round(s, 4));
  WriteLn('Gia tri x lon nhat:', x - 1);
end.

Chúc em học tốt !!!

`#Mbhghhg`