Növekményes sorozat kettő hatványaival, előltesztelő (while) ciklussal (Novekmenyes.pas) program Novekmenyes; uses crt; var i,a,n,k:integer; BEGIN write('n:='); readln(n); i:=1; a:=1; k:=1; k = változó növekmény while(i<=n) do begin writeln(a); a:=a+k; Hozzáadjuk az a változóhoz a változó növekményt. k:=k*2; A változó növekményt szorozzuk 2-vel. i:=i+1; end; END. Növekményes sorozat kettő hatványaival, for ciklussal (NovekmenyesV1.pas) program NovekmenyesV1; uses crt; var i,a,n,k:integer; BEGIN write('n:='); readln(n); a:=1; k:=1; for i:=1 to n do begin writeln(a); a:=a+k; k:=k*2; end; END. Növekményes sorozat kettő hatványaival, hátultesztelő (repeat - until) ciklussal (NovekmenyesV2.pas) program NovekmenyesV2; uses crt; var i,a,n,k:integer; BEGIN write('n:='); readln(n); i:=1; a:=1; k:=1; repeat writeln(a); a:=a+k; k:=k*2; i:=i+1; until(i>n); END.