Question

Viết chương trình nhập vào 1 số nguyên dương N.Sau đó in ra màn hình tổng của các số chẵn số trong N số tự nhiên đầu tiên (S=2+4+6+...+N)

Answer 1

Program HOC24;

var i,n: integer;

s: longint;

begin

write('Nhap n : '); readln(n);

s:=0;

for i:=1 to n do if i mod 2=0 then s:=s+i;

write('S = ',s);

readln

end.

Answer 2

pascal

program sum_of_evens;

var
  i, n, sum: integer;

begin
  write('Enter a positive integer: ');
  readln(n);
  
  sum := 0;
  
  for i := 2 to n step 2 do
  begin
    sum := sum + i;
  end;
  
  writeln('The sum of even numbers from 2 to ', n, ' is ', sum);
end.