8.1.. Napisati program za prebrojavanje neparnih brojeva od k do n.

Opis rješenja: Zadatak se rješava postavljanjem početne vrijednosti za brojač br:=0; a naredba za uvečavanje brojača je (br:=br+1). Logički izraz za provjeru parnosti je i MOD 2 = 1 (neparan broj). FOR petlja je od k do n.

Za objašnjenje:

***

Listing programa

Opis

1

PROGRAM p08142076 ;

 

2

{prebrojati neparne prirodne brojeve od k do n}

 

3

USES

 

4

  WinCrt;

 

5

VAR

 

6

  i, n, k, br : INTEGER;

 

7

BEGIN

 

8

  WRITE('Od broja  ');

 

9

  READLN( k );

Od broja k

10

  WRITE('Do broja  ');

 

11

  READLN( n );

Do broja n

12

  br := 0;

Početna vrijednost  br

13

  FOR i:= K TO n do

 

14

    IF i MOD 2 = 1 THEN

Provjera neparnosti broja

15

      br := br + 1;

Uvećanje brojača br

16

  WRITELN('Neparni od', k', ' do ',n,' = ',br);

 

17

END.

Kraj programa

Listing programa:

PROGRAM p08142076;
{prebrojati neparne prirodne brojeve od k do n}
USES
  WinCrt;
VAR
  i, n, k, br : INTEGER;
BEGIN
  WRITE('Od broja  ');
  READLN( k );
  WRITE('Do broja  ');
  READLN( n );
  br := 0; 
  FOR i:= k TO n do
    IF i MOD 2 = 1 THEN
      br := br + 1;
  WRITELN('Neparni od', k', ' do ',n,' = ',br);
END.

Ispis na ekranu:

Index