Suma,produs cife pare:
var
x,i,n:integer;
begin
writeln('N:');
read(n);
x:=0; // pentru produs pui x:=1
for i:=1 to n do
if (i mod 2=0) then
x:=x+i; // pentru produs folosesti x:=x+i
writeln('Suma cifrelor pare:',x);
end.
Suma,produs cifre impare:
var
x,i,n:integer;
begin
writeln('N:');
read(n);
x:=0; // pentru produs pui x:=1
for i:=1 to n do
if (i mod 2<>0) then
x:=x+i; // pentru produs folosesti x:=x+i
writeln('Suma cifrelor pare:',x);
end.