8.3.. Napisati program za ispis proizvoda brojeva od k do n koji nisu djeljivi sa 2.

Opis rješenja:

Listing programa:

PROGRAM p08312066;
USES
  WINCRT;
VAR
  K,I,N:INTEGER;  
  P:REAL;
BEGIN
  WRITELN('K DO N');
  WRITE('UNESI K I N ');
  READLN(K,N);
  P:=1;
  I :=  K;
  REPEAT
      IF I MOD 2<>0 THEN
        P:=P*I;	
      I := I + 1;
  UNTIL I > N;
  WRITELN ('P=',P:2:4);
END.

Ispis na ekranu:

Index