8.2.. Izračunati proizvod prirodnih brojeva u intervalu od k do n koji nisu djeljivi sa 7.
Listing programa:
PROGRAM P08212142;
USES
WINCRT;
VAR
K,I,N:INTEGER;
P:REAL;
BEGIN
WRITELN('K DO N');
WRITELN(' UNESI K I N ');
READLN(K,N);
P:=1;
I := K;
WHILE I <= N DO
BEGIN
IF I MOD 7<> THEN
P:=P*I;
I := I + 1;
END;
WRITELN ('P=',P:2:4);
END.
Ispis na ekranu:
Index
|
|