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

Opis programa: Provjera neparnosti (nisu djeljivosti sa 2) se izvodi logičkim izrazom I MOD 2 <> 0 u naredbi IF unutar FOR petlje (Cjelobrojno dijeljenje i modul boja). Ako je logički izraz istinit broj se dodaje sumi.

Listing programa:

PROGRAM P08112021;
VAR                { deklarisanje promjnljivih }
  S,I : INTEGER;   { cjelobrojne promjenljive }
BEGIN
  WRITELN('Suma neparnih brojeva od 1 do 5');
  S := 0;           { pocetna vrijednost sume }

  FOR I:= 1 TO 5 DO        { ponavljaj za i=1 do 5 - pocetak for petlje }
    IF I MOD 2 <> 0 THEN   { ako i nije djeljivo sa 2 - neparnoparno tada izvedi }
      S := S + I;          { suma s postaje stara vrijednost sume uvecana za vrijednost i }	
			  
  WRITELN ('Suma neparnih brojeva od 1 do 5 je ',S);
  READLN;
END.

Ispis na ekranu:

Index