8.3.. Izračunati proizvod prirodnih brojeva u intervalu od 1 do n koji su djeljivi sa 3.
Listing programa:
PROGRAM p08312144;
USES
WINCRT;
VAR
I,N:INTEGER;
P: REAL;
BEGIN
Writeln('Proizvod djeljivih sa 3 od 1 do n');
WRITELN('UNESI N ' );
READLN(N);
P:=1;
I:=1;
REPEAT
IF I MOD 3=0 THEN
P:=P*I
i := i + 1;
UNTIL i > N;
Writeln('Proizvod djeljivih sa 3 od 1 do n = ',P:2:4);
END.
Ispis na ekranu:
Index
|