Question

ElaboratI un program pascal care cireste de la tastiera un sir de numere intreGigi pana la întâlnirea numarului 0 și afisează
La ecran în rânduri aparte numărul și produsul elementelor din acest sir

Answer 1

Răspuns:

program nrSiProdus;

var num, nr, prod:integer;

begin

 nr:=0; prod:=1;

 writeln('Introdu numere intregi, STOP este introducerea lui 0');

 read(num);

 while (num<>0) do

   begin

     inc(nr); prod:=prod*num;

     read(num);

   end;

 writeln('sirul contine ',nr,' numere');

 writeln('produsul lor este ',prod);

end.

   

Explicație: