8.1.. Napisati program za prebrojavanje djeljivih sa 3 prirodne brojeve od 1do n.

Opis rješenja: Izdvajanje djeljivih sa 3 se izvodi logičkim izrazom i MOD 3 = 0 u intervalu od 1 do n.

Listing programa:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
PROGRAM p08112080;
USES
  WinCrt;
VAR
  i,k,n,br: integer;
BEGIN
  writeln ('Prebroj djelive sa 3 od 1 do n');
  write ('n ');
  readln(n);
  br:=0;
  FOR i := 1 TO n DO
    IF i MOD 3 = 0 THEN
      br:=br+1;
  writeln('Djeljivih sa 3 ima ', br);
END.

Ispis na ekranu:

Index