8.1.. Izračunati proizvod prirodnih brojeva u intervalu od k do m koji su djeljivi sa c.
Opis rješenja:
Opis programa:
Listing programa:
PROGRAM p08111066;
{proizvod prirodnih brojeva u intervalu od k do m koji su djeljivi sa c }
VAR { deklarisanje promjenljivih }
i, k, m, c : INTEGER; { cjelobrojne promjenljive }
p : REAL; { realne promjenljive }
BEGIN
WRITELN('proizvod od k do m djeljivih sa c');
Write('k');
Readln(k);
Write('m');
Readln(m);
Write('c');
Readln(c);
p := 1;
FOR i:=k TO m DO { ponavljaj za i=1 do 9 - pocetak petlje }
IF i MOD c = 0 THEN { djeljiv sa c? }
p := p * i; { kumulativni proizvod }
WRITELN ('proizvod = ', p); { ispis u petlji }
READLN;
END.
Ispis na ekranu:
Index
|
|