8.1.. Napisati program za izračunavanje proizvoda od 1 do 10.

Opis rješenja:

Opis programa:

Za objašnjenje:

Listing programa:

PROGRAM pro08111017;
VAR
  i: Integer;
  p: Real;
BEGIN
  p:=1;                { Pocetna vrijednost prozvoda }
  FOR i:=1 TO 10 DO    { FOR petlja od 1 do 10 }
    p := p * i; ;      { Kumulativni prozvod }
  Writeln('proizvod  brojeva do 10 je ', p:5:0);     { ispis }
  READLN;
END.

Daljnji rad: Stavite da je P Integer
Primjećujemo da rezultat nije dobar
zašto

Ispis na ekranu:

Index