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