8.3.. Napisati program za ispis proizvoda brojeva od k do n koji nisu djeljivi sa 2.
Opis rješenja:
Listing programa:
PROGRAM p08312066;
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
|
|