Question

viết trương trình nhập vào một số nguyên N. Tính và in ra màn hình tổng của n số tự nhiên đầu tiên

Answer 1

program sum_of_naturals;

var
  i, n, sum: integer;

begin
  write('Enter a positive integer: ');
  readln(n);
  
  sum := 0;
  
  for i := 1 to n do
  begin
    sum := sum + i;
  end;
  
  writeln('The sum of the first ', n, ' natural numbers is ', sum);
end.