8.2.. Izračunati proizvod prirodnih brojeva u intervalu od k do m koji su djeljivi sa c.
Opis rješenja:
Listing programa:
PROGRAM p08211066;
{ Proizvod od k do m koji su djeljivi sa c }
USES
WinCrt;
VAR
i, k, m, c : INTEGER;
p : REAL;
BEGIN
Writeln( 'Proizvod od k do m koji su djeljivi sa c' );
Write('Od broja ');
Readln(k); { od broja k }
Write('Do broja ');
Readln(m); { do broja m }
Write('Djeljiv sa ');
Readln(c); { djeljivi sa brojem c }
i := k; { pocetna vrijednost kontrolne varijable i}
p := 1; { pocetna vrijednost proizvoda }
WHILE i <= m DO { dok je i <= m ponavljaj - pocetak petlje }
BEGIN
IF i MOD c = 0 THEN { djeljiv sa c? }
p := p * i; { nova vrijeddnost proizvoda }
i := i + 1; ; { nova vrijeddnost kontrolne varijable i}
END;
Writeln('Proizvod od ', k, ' do ', m, ' koji su djeljivi sa ', c, ' = ', p );
END.
Ispis na ekranu:
Index
|
|