8.1.. Suma parnih prirodnih brojeva od 1 do m.

Opis rješenja:

Opis programa:

Listing programa:

PROGRAM p08111067;
{suma parnih prirodnih brojeva od 1 do m}
USES
  WinCrt;
VAR              { deklarisanje promjenljivih }
  i, m, s : INTEGER;   { cjelobrojne promjenljive }
BEGIN
  WRITELN('suma parnih od 1 do m');
  Write('m');
  Readln(m);
  s := 0;

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

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

Ispis na ekranu:

Index