8.3.. Izračunati proizvod parnih prirodnih brojeva u intervalu od k do n.
Opis rješenja:
Listing programa:
PROGRAM p08312065;
USES
WINCRT;
VAR
K,I,N:INTEGER;
P:REAL;
BEGIN
WRITELN('K DO N');
WRITE('UNESI K I N ');
READLN(K,N);
P:=1;
I := K;
REPEAT
IF I MOD 2=0 THEN
P:=P*I;
I := I + 1;
UNTIL I > N;
WRITELN ('P=',P:2:4);
END.
Ispis na ekranu:
Index
|
|