Predmet:Primjer While petlje
Ispis prirodnih brojeve od 4 do 10 unazad.
PreuzmiIzvorni kôd (Delphi):PROGRAM PROGRAM11;
USES
WinCrt;
VAR
i : INTEGER;
BEGIN
WRITELN('Od 4 do 10 unazad');
i := 10;
WHILE i >= 4 DO
BEGIN
WRITELN('i=',i );
i := i - 1;
END;
END.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.