8.1.. Izračunati proizvod prirodnih brojeva u intervalu od k do n koji nisu djeljivi sa 7.
Listing programa:
PROGRAM P08112142;
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<> THEN
P:=P*I;
WRITELN ('P=',P:2:4);
END.
Ispis na ekranu:
Index
|
|