Question

Se dau 4 numere intregi, scrieti o functie pascal ca calculeaza produsul numerelor pozitive.

Answer 1

program BrainlyHelper;

var a,b,c,d:integer;

   

   

   function prod(a,b,c,d:integer):integer;

   var produs:integer;

   begin

   produs:=1;

   if a>0 then produs:=produs*a;

   if b>0 then produs:=produs*b;

   if c>0 then produs:=produs*c;

   if d>0 then produs:=produs*d;

   writeln('P=',produs);

   end;

   

   

begin

 writeln ('Dati cele 4 numere:');

 readln(a,b,c,d);

 

 prod(a,b,c,d);

end.