Vypíše všetky párne čísla z intervalu (a,b)

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Zadaňa zos Pascalu

Program: Parne2.pas
Subor exe: Parne2.exe

Vypíše všetky párne čísla z intervalu (a,b). Nepoužíva FOR.
{ 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.