8.1.. Izračunati proizvod brojeva od 1 do n koji su djeljivi sa a.

Listing programa:

PROGRAM P08112147;
USES
  WINCRT;
VAR
  I,N:INTEGER;  
  P:REAL;
BEGIN
  WRITELN('1 DO N');
  WRITELN(' UNESI N I A' );
  READLN(N,A);
  P:=1;
  FOR I:=1 TO N DO
  IF I MOD A=0 THEN
  P:=P*I	
    WRITELN ('P=',P:2:4);
END.

Ispis na ekranu:

Index