8.2.. Izračunati sumu parnih prirodnih brojeva u intervalu od k do n.

Listing programa:

PROGRAM p08212009;
USES
  WinCrt;
VAR
  i, k, n, s: Integer;
BEGIN
  REPEAT
    WRITE('Od broja  ');
    READLN( k );
    WRITE('Do broja  ');
    READLN( n );
  UNTIL k<= n;
  
  i:= k;
  WHILE i <= n DO
    BEGIN
      IF i MOD 2=0 THEN
        s := s + i;
      i := i + 1;
    END;
	
  Writeln('Suma parnih brojeva od ', k , ' do ', n, ' je ', s);
END.

Ispis na ekranu:

Index