👤
FUNNYSMILE25ZE
a fost răspuns

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

Răspuns :

SIRDUMITRUZE

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.



Vezi imaginea SIRDUMITRU
Vă mulțumim că ați ales să vizitați site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți alte întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați în lista de favorite!


Ze Teaching: Alte intrebari