8.1.. Napisati program za prebrojavanje prirodnih brojeva od k do n djeljivih sa l.

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

Listing programa:

PROGRAM p08142075;
USES
  WinCrt;
VAR
  i,k,n,l,br:integer;
BEGIN
  WRITELN ('prebroj djelive sa l u intervalu k do n');
  WRITE('Od broja  ');
  READLN( k );
  WRITE('Do broja  ');
  READLN( n );
  WRITE ('l ');
  READLN(l);
  br:=0;
  FOR i := k TO n DO
    IF i MOD l = 0 THEN
      br:=br+1;
  WRITELN('br ', br);
END.

Ispis na ekranu:

Index