Question

Sa se scrie trei programe (unul cu utilizarea instructiunii For, altul cu utilizarea instructiunii While si al treilea cu utilizarea instructiunii Repeat) care calculeaza suma numerelor naturale pare mai mici sau egale cu N. Sa explicati va rog!

Answer 1

Răspuns:

Explicație:

program SumapareNFor;

var n,num,suma:integer;

begin

 write('n='); read(n);

 suma:=0;

 for num:=1 to n do

   if num mod 2=0 then suma:=suma+num;

 writeln('suma parelor <=N este ',suma);

end.

program sumaParelorNWhile;

var n,par,suma:integer;

begin

 write('n='); read(n);

 suma:=0; par:=2;

 while par<=n do

   begin

     suma:=suma+par;

     par:=par+2;

   end;

 writeln('suma parelor <=N este ',suma);

end.

program sumaPareNRepeat;

var n, par, suma:integer;

begin

 write('n='); read(n);

 suma:=0;

 par:=0;

 repeat

   suma:=suma+par;

   par:=par+2;

 until par>n;

 

 writeln('suma parelor <=N este ',suma);

end.