8.1.. Proizvod neparnih od prvih n prirodnih brojeva.
Opis rješenja: Ovaj program se odlikuje time da u FOR petlji ima provjeru da li je kontrolna varijabla djeljiva sa 2 tj. da li je neparna. Provjera se izvodi sa logičkim izrazom i MOD 2 <> 0 u naredbi IF. Množe se samo brojevi koji zadovoljavaju dati logički izraz tj. kad je logički izraz istinit.
Listing programa:
PROGRAM P08112064;
USES
WINCRT;
VAR
I,N:INTEGER;
P:REAL;
BEGIN
Writeln('Proizvod neparnih od 1 do n');
WRITELN('UNESI N ' );
READLN(N);
P:=1;
FOR I:=1 TO N DO
IF I MOD 2<>0 THEN
P:=P*I
Writeln('Proizvod neparnih od 1 do n = ',P:2:4);
END.
Ispis na ekranu:
Index
|