[Pascal] suma liczb parzystych

[kalik]

Napisać program który wczytuje \(\displaystyle{ n}\) i oblicza sumę liczb parzystych z przedziału \(\displaystyle{ [1,n]}\) z zastosowaniem 3 pętli: repeat, while, for.

[adambak]

rozumiem, że nie muszą być te trzy pętle jednoczesnie używane w programie? to byłby dopiero problem
klamerki to komentarze..

Kod: Zaznacz cały

program test;

var n,s,i:integer;

begin
  readln(n);

  s:=0;

  {
  i:=2;
  while i<=n do begin
    s:=s+i;
    i:=i+2;
  end;
  }

  {
  for i:=1 to n do
    if i mod 2 = 0 then s:=s+i;
  }
  
  i:=2;
  if n>=2 then
    repeat
      s:=s+i;
      i:=i+2;
    until i>n;
  
  writeln(s);
end.