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}
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 }
READLN;
END.
Ispis na ekranu:
Index
|
|