8.2.. Prebrojati prirodne brojeve od 1 do n.

Opis rješenja:

Listing programa:

PROGRAM p08212084;
{ Prebrojati od 1 do n }
USES
  WinCrt;
VAR
  i, n : INTEGER;
  br : REAL;

BEGIN
  Writeln('Prebrojati od 1 do n');
  Write(n);
  Readln(n);

   i := 0;       { pocetna vrijednost kontrolne varijable i }
   br:= 0;       { pocetna vrijednost brojaca}

   WHILE i <= n DO
     BEGIN
       br := br + 1;    { nova vrijeddnost brojaca}
       i := i + 1; ;    { nova vrijeddnost kontrolne varijable i}
     END;
   Writeln('Prebrojati brojeve od 1 do n= ', br);
END.

Ispis na ekranu:
 

Index