Question

elaborato un program.de la tastatura se introduce un numar natural n,calculati suma numerelor pare din imtervalul n si1.In pascal.
urgent..​

Answer 1

Răspuns:

program suma;

var

   n:integer;

   sum:integer;

   i:integer;

begin

 write('n= ');readln(n);

 sum:=0;

 for i:=1 to n do

 begin

   if i mod 2=0 then

       sum:=sum+i;

 end;

 write(sum);

end.

Explicație: