8.1.. Izračunati proizvod brojeva od 1 do n koji su djeljivi sa a.
Listing programa:
PROGRAM P08112147;
USES
WINCRT;
VAR
I,N:INTEGER;
P:REAL;
BEGIN
WRITELN('1 DO N');
WRITELN(' UNESI N I A' );
READLN(N,A);
P:=1;
FOR I:=1 TO N DO
IF I MOD A=0 THEN
P:=P*I
WRITELN ('P=',P:2:4);
END.
Ispis na ekranu:
Index
|
|