8.1.. Suma neparnih prirodnih brojeva od 1 do 9.

Opis rješenja:

Opis programa:

Listing programa:

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

  FOR i:=1 TO 9 DO        { ponavljaj za i=1 do 9 - pocetak petlje }
    IF i MOD 2 <> 0 THEN  { neparan? }
      s := s + i;         { neparan, kumulativna suma }

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

Ispis na ekranu:

Index