Viết chương trình Pascal: Cho số tự nhiên N (5 N 100), Hãy tìm tất cả các bộ 5 số tự nhiên x1, x2, x3, x4, x5 sao cho: x1 x2 x3 x4 x5 và x1 + x2 + x3 + x4 + x5 = N

Dữ liệu vào: Nhập số tự nhiên N từ bàn phím.

Dữ liệu ra: In ra màn hình các bộ 5 số theo thứ tự x1 x2 x3 x4 x5 tìm được, mỗi bộ nằm trên một dòng, các số cách nhau một dấu cách.

Đáp án đây nhé e zai :

program FindCombinations;
var
  N, x1, x2, x3, x4, x5: Integer;

begin
  // Nhập giá trị N từ bàn phím
  Write('Nhập số tự nhiên N (5 <= N <= 100): ');
  ReadLn(N);

  // Tìm các bộ 5 số thỏa mãn điều kiện
  for x1 := 1 to N - 4 do
  begin
    for x2 := x1 to N - 3 do
    begin
      for x3 := x2 to N - 2 do
      begin
        for x4 := x3 to N - 1 do
        begin
          for x5 := x4 to N do
          begin
            if (x1 + x2 + x3 + x4 + x5 = N) then
            begin
              // In ra các bộ số thỏa mãn
              WriteLn(x1, ' ', x2, ' ', x3, ' ', x4, ' ', x5);
            end;
          end;
        end;
      end;
    end;
  end;
end.

var
  N: integer;
begin
  readln(N);
  for x1 := 1 to N - 4 do
    for x2 := x1 + 1 to N - 3 do
      for x3 := x2 + 1 to N - 2 do
        for x4 := x3 + 1 to N - 1 do
          for x5 := x4 + 1 to N do
            if (x1 + x2 + x3 + x4 + x5 = N) then
              writeln(x1, ' ', x2, ' ', x3, ' ', x4, ' ', x5);
end.