8.1.. Suma neparnih prirodnih brojeva od 1 do 5.
Listing programa: Provjera djeljivosti sa 5 se izvodi logičkim izrazom I MOD 2 <> 0 u naredbi IF unutar FOR petlje.
PROGRAM P08112021;
VAR { deklarisanje promjenljivih }
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
|