Question

Elaborați un program utilizând funcția pentru a calcula produsul numerelor pare. (în PASCAL)
Vă rog mult ajutați-mă!!!

Answer 1

Program Pn;
var n,s:integer;
function pare(n,s:integer):integer;
var i,nr:integer;
begin
for i:=1 to n do
begin
Writeln('[',i,']=');readln(nr);
if (nr mod 2)=0 then s:=s*nr;
pare:=s;
end;
end;
begin
Writeln('Cite numere aveti?');
readln(n);
s:=1;
Writeln(pare(n,s));
readln;
end.