Umístnení souboru www.TrSek.com/zadania/parne2.pas
{ PARNE2.PAS                Copyright (c) TrSek alias Zdeno Sekerak }
{ Vytvorte program ktory nacita dve prirodzene cisla (a,b) vypise   }
{ vsetky parne cisla z tohoto intervalu. Nepouzite FOR!!            }
{                                                                   }
{ Datum:23.05.2004                             http://www.trsek.com }

program cele_cisla_parne2;
var a,b:integer;

begin
  WriteLn('Vypisem vsetky parne cisla z intervalu. Nepouzivam FOR.');
  Write('Zadaj cele cislo a=');
  ReadLn(a);

  Write('Zadaj cele cislo b=');
  ReadLn(b);

  WriteLn('Parne cisla z intervalu su:');
  repeat
    a:=a+1;
    if( round(a/2) = a/2 ) then
        WriteLn(a);
  until(a>=b);

  WriteLn('Koniec');
  ReadLn;
end.
Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com