8.1.. Izračunati proizvod prirodnih brojeva u intervalu od k do n koji su djeljivi sa 7.

Listing programa:

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

Ispis na ekranu:

Index