8.2.. Suma prvih 9 prirodnih brojeva.

Opis rješenja:

Listing programa:

PROGRAM p08211061;
{Sabrati prirodne od 1 do 9}
USES
  WinCrt;
VAR                     { deklarisanje promjenljivih }
  i, s : INTEGER;       { cjelobrojne promjenljive }
BEGIN
  WRITELN('Sabrati od 1 do 9');

  i := 1;                  { pocetna vrijednost kontrolne varijable }
  s := 0;                  { pocetna vrijednost kumulativne sume }
  WHILE i <= 9 DO            { dok je i <= 9 ponavljaj - pocetak petlje }
      BEGIN
        s := s + i;         { nova vrijednost kumulativne sume }
        i := i + 1;         { nova vrijednost kontrolne varijable }
      END;
  Writeln('suma brojeva od 1 do 9 = ', s);    {do broja}

END.

Ispis na ekranu:
 

Index