8.2.. Izračunati proizvod brojeva od 1 do m koji su djeljivi sa c.
Opis rješenja:
Listing programa:
PROGRAM p08211065;
{ Proizvod od 1 do m koji su djeljivi sa c }
USES
WinCrt;
VAR
i, m, c : INTEGER;
p : REAL;
BEGIN
Writeln('Proizvod od 1 do m koji su djeljivi sa c');
Write('Do broja ');
Readln(m);
Write('Djeljivo ');
Readln(c);
i := 1; { 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
p := p * i; { nova vrijeddnost proizvoda }
i := i + 1; { nova vrijeddnost kontrolne varijable i}
END;
Writeln('Proizvod od 1 do ', m, ' koji su djeljivi sa ', c, ' = ', p);
END.
Ispis na ekranu:
Index
|
|