Question

Scrieti un algoritm care citeste un nr n si afiseaza suma nr pare si a nr impare <=n.​

Answer 1

Pare:

var

 a, i, n: integer;

begin

 a := 0;

 read(n);

 for i := 1 to n do

   if i mod 2 = 0 then  

     a := a + i;

 writeln('Suma=', a);

end.

Impare:

var

n,i,s:integer;

begin

write('n = ');

read(n);

s:=0;

for i:=1 to n do

begin

if i mod 2<>0 then

s:=s+i;

end;

write('s = ',s);

end.