8.3.. Napisati program za ispis proizvoda brojeva od 1 do n. Koristiti REPEATpetlju.

Opis rješenja: Početna vrijednost varijable p (proizvid) je 1, a kontrolne varijable i jedan (1). Vrijednost proizvod p se uvećava za vrijednost kontrolne varijable i (p*i=1*1=1). Varijabla i se uvećava za1 i ponovo izvodi množenje i tako do vrijednosti varijable i=n.

Listing programa :

PROGRAM p08312041;
USES
  WinCrt;
VAR
  i, n, p: Integer;
BEGIN
 Write('Do broja');
 Readln(n);
 p := 1;
 i := 1;
 REPEAT
   p := p * i;
   i := i + 1;
 UNTIL i > n;
 Writeln('Proizvod prirodnih brojeva do ', n, ' = ', p);
END.

Index