8.1.. Suma prvih 9 prirodnih brojeva.

Opis rješenja:

Opis programa:

Listing programa:

PROGRAM p08111061;
{suma prvih 9 prirodnih brojeva}
USES
  WinCrt;
VAR                 { deklarisanje promjenljivih }
  i, s : INTEGER;   { cjelobrojne promjenljive }
BEGIN
  WRITELN('suma od 1 do 9');
  s := 0;

  FOR i:=1 TO 9 DO        { ponavljaj za i=1 do 9 - pocetak petlje }
     s := s + i;          { kumulativna suma }

  WRITELN ('suma= ', s);  { ispis u petlji }
     
END.

Ispis na ekranu:

Index