Question

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!

Answer 1

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.