8.1..
Napisati program za ispisivanje proizvoda brojeva do n koji su djeljivi sa 2. Listing programa:
PROGRAM P08112063;
USES
WINCRT;
VAR
N,I :INTEGER;
P: REAL;
BEGIN
Writeln('Proizvod parnih 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 parnih od 1 do n = ',P:2:4);
END.
Ispis na ekranu:
Index
|