Napisati program sa funkcijom za prebrojavanje neparnih brojeva od a do b (koristiti WHILE).

Listing programa:

PROGRAM kvadratpar_kubnepra;
USES
  WinCrt;
VAR
  a, b: Integer;

FUNCTION brojnepar(a, b:Integer):Integer;
VAR
  i, br: Integer;
BEGIN
  br := 0;
  i:= a;
  WHILE i <= b DO
    BEGIN
      IF i MOD 2 <> 0 THEN
        br := br + 1;
      i := i + 1;
    END;
  brojnepar := br;
END;

BEGIN
  Writeln ('prebrojati neparne brojeve od a do b WHILE ');
  Write('a b ');
  Readln(a, b);
  writeln('neparni od a do b =  ', brojnepar(a, b));
END.

Index