8.2.. Napisati program za ispis proizvoda brojeva od 1 do n. Koristiti WHILEpetlju.

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 p08212041;
USES
  WinCrt;
VAR
  i, n, p: Integer;
BEGIN
  Write('Do broja');
  Readln(n);
  p := 1;
  i := 1;
  WHILE i <= n DO
    BEGIN
      p := p * i;
      i := i + 1;
    END;
  Writeln('Proizvod prirodnih brojeva do ', n, ' = ', p);
END.

Ispis na ekranu:

Index