Anonymní profil gandy93 – Programujte.com

program project1;



uses crt;

var  parne, neparne, i, x: Integer;



begin

  clrscr;

  write('Zadajte minimum intervalu: '); readln(i);

  write('Zadajte maximum intervalu: '); readln(x);

  parne:=0; neparne:=0;

  for i:=i to x do

  begin

    if (i mod 2 = 0) then parne := parne+i

    else neparne := neparne+i;

  end;

  WriteLn('Sucet parnych cisel je: ', parne);

  WriteLn('Sucet neparnych cisel je: ', neparne);

  readkey;

end.