8.1.. Napisati program za ispis proizvoda brojeva od k do n koji nisu djeljivi sa 2.
Opis rješenja:
Listing programa:
PROGRAM P08112066;
USES
WINCRT;
VAR
K,I,N:INTEGER;
P:REAL;
BEGIN
WRITELN('K DO N');
WRITELN(' UNESI K I N ');
READLN(K,N);
P:=1;
FOR I:=K TO N DO
IF I MOD 2<>0 THEN
P:=P*I;
WRITELN ('P=',P:2:4);
END.
Ispis na ekranu:
Index
|
|