8.2.. Suma neparnih prirodnih brojeva od 1 do 9.
Opis rješenja:
Listing programa:
PROGRAM p08211063;
{Sabrati neparne od 1 do 9}
USES
WinCrt;
VAR { deklarisanje promjenljivih }
i, s : INTEGER; { cjelobrojne promjenljive }
BEGIN
WRITELN('Sabrati neparne 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
IF i MOD 2 <> 0 THEN
s := s + i; { nova vrijednost kumulativne sume }
i := i + 1; { nova vrijednost kontrolne varijable }
END;
Writeln('suma neparnih brojeva od 1 do 9 = ', s); {do broja}
END.
Ispis na ekranu:
Index
|