👤

Se citeste un numare natural n. Sa se afiseze suma si produsul cifrelor pare (sau impare). Algoritmul sa fie doar in pascal va rog nu si il alte limbaje de programare!

Răspuns :

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.