Question

viết chương trình nhập vào số nguyên n,xuất ra dãy số từ 1 đến n;Tính tổng dãy số và xuất ra màn hình.

Answer 1

program TinhTongDaySo;

var n, i, s: Integer;

begin
  // Yêu cầu người dùng nhập vào số nguyên n từ bàn phím
  write('Nhap vao n: ');
  readln(n);

  // In ra thông tin dãy số từ 1 đến n
  writeln('Day so tu 1 den ', n, ':');

  // Khởi tạo biến s để tính tổng dãy số
  s := 0;

  // Dùng vòng lặp for để in ra dãy số từ 1 đến n và tính tổng
  for i := 1 to n do
  begin
    write(i, ' '); // In ra dãy số từ 1 đến n
    s := s + i; // Tính tổng dãy số
  end;

  // In ra tổng dãy số
  writeln('Tong day so: ', s);

  // Dừng chương trình để người dùng có thể xem kết quả
  readln;
end.

Answer 2

program Tinh_Tong_Day_So;

var n, i, s: Integer;

begin
  // Yêu cầu người dùng nhập vào số nguyên n từ bàn phím
  write('Nhap vao n: ');
  readln(n);

  // In ra thông tin dãy số từ 1 đến n
  writeln('Day so tu 1 den ', n, ':');

  // Khởi tạo biến s để tính tổng dãy số
  s := 0;

  // Dùng vòng lặp for để in ra dãy số từ 1 đến n và tính tổng
  for i := 1 to n do
  begin
    write(i, ' '); // In ra dãy số từ 1 đến n
    s := s + i; // Tính tổng dãy số
  end;

  // In ra tổng dãy số
  writeln('Tong day so: ', s);

  // Dừng chương trình để người dùng có thể xem kết quả
  readln;
end.